el datacontrol no lo uso, prefiero hacerlo con ADO, que en teoria seria lo mismo, mira más o menos esto es lo que hago:
´Declaro variables para el acceso a la BD
dim BD as Database
dim Rd as RecordSet
'Abro la BD
Set BD = Workspaces(0).Opendatabase("c:\..\BD.mdb", Lectura, Excritura, Password)
'Abro la tabla o en este caso hago un filtrado
set Rd = BD.OpenRecordset("SELECT * FROM Tabla WHERE Campo = '" & text1.text & "';")
'Checo si encontro registros
if Rd.RecordCount > 0 then
' Encontro registros
else
' msgbox "No hay registros para mostrar"
end if
'Cierro la tabla y la BD
Rd.close
BD.close
'Libero memoria
set Rd = nothing
set BD = nothing
aunque creo que con el data lo podrías hacer más o menos asi
data1.DabaseName = "tuBD.mdb"
data1.RecordSource = "Tabla"
data1.refresh
If Data1.Recordset.RecordCount > 0 Then
data1.Recordset.FindFirst "Campo1 = '" & text1.text & "'"
if data1.Recordset.NoMatch then
msgbox "no hay registros que mostrar"
else
'encotro unos registros
end if
end if
alguna vez use el datacontrol pero luego se me hizo mejor usar variables para lo que estaba haciendo
Autor
En línea
gracias
