MS Access Connection Method

 Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\stcode.mdb;Persist Security Info=True;Jet OLEDB:Database Password=ilovemyindia"

Dim conn As New OleDb.OleDbConnection(connectionString)

Dim customersTableAdapter As New OleDb.OleDbDataAdapter("Select station, code from tblstCode", conn)

Dim customerTable As New DataTable()

customersTableAdapter.Fill(customerTable)

Me.TblStCodeBindingSource.Filter = "Station Like" & "'*" & Me.TextBox1.Text & "*'"

Me.TblStCodeBindingSource.DataSource = customerTable

DataGridView1.DataSource = Me.TblStCodeBindingSource