Dim connStr as String = "Provider=Microsoft.Jet.OLEDB.4.0; Data" & _
  "Source=Kontakt.mdb;"
Dim conn as New OleDB.OleDbConnection(connStr)
Dim sqlStr as String = " Select * from Kontakt where(Kontakt.name like '" & _
  txtName.Text & "')"
 
Dim da as New Oldb.OleDBDataAdapter(sqlStr, conn)
Dim ds as New DataSet()
conn.Open()
 
da.Fill(ds, "Kontakt")
conn.Close()
 
frmForm2.show()
Me.Form2.DataGrid1.SetDataBinding(ds, "Kontakt")