Ok, I got it to work. What I did was saved query result into a dataset and then using string functions to get my data out and then create a datatable and added each row with data from the dataset. Dim accessConnection As OleDbConnection = New OleDbConnection("Provider=MSIDXS") Dim accessCommand As New OleDbCommand(query, accessConnection) Dim newjobsDataAdapter As New OleDbDataAdapter(accessCommand) Dim myDataSet As New DataSet() Dim newjobsDataTable As New DataTable("newjobs") newjobsDataAdapter.Fill(myDataSet, "newjobs") Dim dataTableRowCount As Integer = newjobsDataTable.Rows.Count Dim myDataTable As DataTable = myDataSet.Tables(0) Dim tempdata As String Dim spc1 As Integer Dim spc2 As Integer Dim spc3 As Integer Dim spc4 As Integer myDataTable.Columns.Add(New DataColumn("ID", GetType(Integer))) myDataTable.Columns.Add(New DataColumn("JobID", GetType(Integer))) myDataTable.Columns.Add(New DataColumn("JobTitle", GetType(String))) myDataTable.Columns.Add(New DataColumn("Keywords", GetType(String))) myDataTable.Columns.Add(New DataColumn("Location", GetType(String))) myDataTable.Columns.Add(New DataColumn("Rate", GetType(String))) For i = 0 To myDataTable.Rows.Count - 1 myDataTable.Rows(i)("ID") = i + 1 tempdata = myDataTable.Rows(i)("characterization") spc1 = InStr(myDataTable.Rows(i)("characterization"), ",") spc2 = InStr(myDataTable.Rows(i)("characterization"), ". Category") myDataTable.Rows(i)("JobID") = Convert.ToInt32(Mid(tempdata, 1, spc1 - 1)) myDataTable.Rows(i)("JobTitle") = LTrim(Mid(tempdata, spc1 + 2, spc2 - 8)) spc1 = InStr(myDataTable.Rows(i)("characterization"), "Description") spc2 = InStr(spc1, myDataTable.Rows(i)("characterization"), "~.") myDataTable.Rows(i)("Keywords") = LTrim(Mid(tempdata, spc1 + 13, spc2 - spc1 - 12)) spc1 = InStr(myDataTable.Rows(i)("characterization"), "State") spc2 = InStr(spc1, myDataTable.Rows(i)("characterization"), ".") spc3 = InStr(myDataTable.Rows(i)("characterization"), "City") spc4 = InStr(spc3, myDataTable.Rows(i)("characterization"), ".") myDataTable.Rows(i)("Location")