Code:
'SAVE THE RESULTS TO THE DATABASE
Dim c_strAccessMDBFile As String = CStr(IBM.txtdblocation.Text) & "CrustaceanIBM.mdb"
Dim myConn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & c_strAccessMDBFile & ";")
Dim myDataAdapter As New OleDb.OleDbDataAdapter()