Dim comm As New OleDbConnection
 
        comm.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=BDtest.accdb;"
        comm.Open()
 
        Dim c As New OleDbCommand
        c.Connection = comm
        c.CommandText = "select*from BdAl"
        Dim ds As New DataSet
        Dim da As New OleDbDataAdapter(c)
        da.Fill(ds, "BdAl")
        Grid1.DataSource = ds
        Grid1.DataMember = "BdAl"

Dim k as String
k=”А”
«select*from BdAl where id_a Like ‘%» & k “%’”)