Visual Basic - no me busca el registro

tengo una base accedo mediante ado y sql
pero me da numero de registro 0 necesito que busque a traves de una variable desde ya muchas gracias
Dim con As String
Set base = New Connection
Set rst = New Recordset
Set rst1 = New Recordset
ruta = "C:\base\estasit_sdos201005.mdb"

'Abrimos la base de datos
base.CursorLocation = adUseClient
base.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & ruta
con = InputBox("ingrese numero de DNI : ")
rst1.Open "select * from Estasit_Sdos_Ofic where documento like con;", base

'Abrimos el recordset y Ejecutamos la consulta
'rst.Open "SELECT Count(*) as ndoc FROM(select distinct documento from Estasit_Sdos_Ofic)where documento='con' ;", base

'Mostramos el resultado Maximo y Minimo del campo Gastos
'MsgBox rst.Fields("ndoc")
' Text2.Text = ndoc
Set DataGrid1.DataSource = rst1
End Sub

Si con es el nombre de la variable en la consulta tendra que concatenarla
no es documento='con' en este caso le estas diciendo que documento debe ser igual a con no al contenido que tenga la variable con que es un dni
Seria ..............documento='" & con & "'.........
Lo mismo con el Like