Public Sub ConnectToAccess()
Dim conn As New System.Data.OleDb.OleDbConnection()
conn.ConnectionString = & _ "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & _ "C:\Documents and Settings\username\My Documents\dbFile.mdb"
Try
conn.Open()
Catch ex As Exception
MessageBox.Show("Failed to connect to data source")
Finally
conn.close()
End Try
End Sub
For each Row in Dt.Rows
Row("field_name").toString
Next