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