Imports System.Data.OleDb
'///^^^ top of your form's code window.
'////////
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Connection As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "C:/bin.mdb"
Dim Command As String = "SELECT * FROM binFrm"
OpenAccessFile(Connection, Command)
End Sub
Private Sub OpenAccessFile(ByVal strConnection As String, ByVal strCommand As String)
Dim objDbConnection As New OleDbConnection(strConnection)
objDbConnection.Open() '///open a new connection.
Dim objCommand As New OleDbCommand(strCommand, objDbConnection)
Dim objAdaptor As OleDbDataAdapter
objAdaptor = New OleDbDataAdapter(objCommand)
Dim objDataSet As New DataSet()
objAdaptor.Fill(objDataSet, "binFrm")
DataGrid1.DataSource = objDataSet.Tables("binFrm") '///fill a datagrid with the recordset
objDbConnection.Close()
objCommand.Dispose()
objAdaptor.Dispose()
objDataSet.Dispose()
End Sub