Public Function returnArray() As Array
Dim com As String = "select * from Table "
Dim Adpt As New OleDb.OleDbDataAdapter(com, myconn)
Dim MyDataSet As New DataSet
Adpt.Fill(MyDataSet, "Table ")
Dim MyDataTable As New DataTable
MyDataTable = MyDataSet.Tables(0)
Dim Temp_Row As DataRow
Dim myda As New OleDb.OleDbCommand(com, myconn)
Dim mydatareader As OleDb.OleDbDataReader = myda.ExecuteReader()
Dim item As Array
For Each Temp_Variable In MyDataTable.Rows
Temp_Row = Temp_Variable
item = Temp_Row("num1")
Next
myconn.Close()
End Function