Activa la referencia:
Microsoft ActiveX Data Objects 2.6 Library (si no la tienes)
Antes de:
Pones:
Código:
Set rs = New ADODB.Recordset
te dejo como deberia de quedar:
Código:
Public Function busca2(ByVal resultado As Integer) As Integer
'invoca la conexion
Call conexion
cmd.ActiveConnection = conn
cmd.CommandType = adCmdText
cmd.CommandText = "select count(*) from t_datos"
Set rs = New ADODB.Recordset
Set rs = cmd.Execute()
'Si tiene valor false la propiedad EOF es que la consulta produjo resultados, si es true es que la consulta no ha devuelto nada.
If rs.EOF = False Then
'condiciones si tiene datos
else
'condiciones si no tiene datos
End If
End Function
Espero que te sirva.