SoloCodigo

pongo esto pero me da registros 0
Dim con As String
Set base = New Connection
Set rst = New Recordset
Set rst1 = New Recordset
ruta = "C:baseestasit_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