Visual Basic - Ayuda con busqueda

Hola amigos.
Soy novato trabajando con bases de datos y nesecito que me den una mano. Estoy trabajando solo con codigo.
Nesecito decirle al mi aplicacion:
Abra la conexion
abra un recordset con todos los registros que encuentre en la tabla "operaciones" que contengan "a" en cualquier posicion
llene dbgrid1 con esos registros
Mi base de datos es acces. Gran parte del codigo ya lo conozco pero tengo problemas con la sentencia Sql.
He revisado muchas consultas del foro pero siempre me caigo con algo.
Le estare muy agradecido a quien pueda ayudarme con esto.
Gracias :-)

esta es una conexion con sql pero ahi la cambias por la de access

para llenar una grilla
Sub Inicializa_Grilla_cuenta(grilla As Control, total As Control)
Dim datos As String
Dim t
Dim rsCwpctas As New ADODB.Recordset
grilla.Clear
grilla.Visible = True
grilla.Enabled = True
t = Chr$(9)
grilla.Rows = 10000
grilla.Cols = 2
grilla.FixedRows = 0

datos = "Cuenta" + t + "Descripción"
grilla.AddItem datos, 0
grilla.Row = 1
grilla.FixedRows = 1
total.Caption = "0"

Screen.MousePointer = 11
select * from tabla where campo1 like '* a *'
Set cmd1 = New Command
cmd1.CommandText = Mquery
cmd1.CommandType = adCmdText
Set cmd1.ActiveConnection = C_Gescom1
Set rsCwpctas = cmd1.Execute
lin = rsCwpctas.RecordCount

If lin = 0 Then
MsgBox "no existen Registros", 16, "Error en Consulta"
Screen.MousePointer = Default
Exit Sub
End If
i = 1
Do While Not rsCwpctas.EOF
grilla.Row = i
grilla.Col = 0
If Not IsNull(rsCwpctas("pccodi")) Then
grilla.Text = rsCwpctas("pccodi")
End If
grilla.Col = 1
If Not IsNull(rsCwpctas("pcdesc")) Then
grilla.Text = Trim(rsCwpctas("pcdesc"))
End If
rsCwpctas.MoveNext
i = i + 1
Loop
rsCwpctas.Close
total.Caption = Str(i - 1)
grilla.Rows = i
grilla.Row %3

Gracias Carla. Lo he solucionado. Gracias por tu ayuda :-)