Dim sCon2 As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" &
    "D:\Pension\My_Pension.mdb" 
Dim sqlConnection2 As New OleDb.OleDbConnection(sCon2) 
Dim queryString As String = "SELECT * FROM Pensioner WHERE LastName LIKE ?"
Dim cmd2 As OleDb.OleDbCommand = New OleDb.OleDbCommand(queryString, sqlConnection2)
cmd2.Connection = sqlConnection2
sqlConnection2.Open()
cmd2.Parameters.Add("@p1", OleDb.OleDbType.Char, 4).Value = "Блох"
Dim reader As OleDbDataReader = cmd2.ExecuteReader() 
sqlConnection2.Close()