Dim dt1 As New DataTable()
dt1.Clear()
Dim adp As New OleDb.OleDbDataAdapter("SELECT * FROM SMSDATA1DB", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & System.Environment.CurrentDirectory & "\SMSDB.mdb")
adp.Fill(dt1)
adp.Dispose()
DataGridView1.DataSource = dt1
Use this code to retrieve data form access table....:) This is Improved solution use this.....:)