encontrado lo que buscaba
'**********************************************************************
'Escritura de Visual Basic ActiveX
'**********************************************************************
Cañería de la función ()
objRs déviles
objConn dévil
strSql dévil
strHtml dévil
Fijar el objConn = CreateObject (“ADODB.Connection”)
objConn.Open “Provider=SQLOLEDB; Datos Source= (local); Trusted_Connection=yes; Catalog=Northwind inicial”
el strSql = “selecciona cuenta (*) de la tabla donde la condición”
'--- //Method 1: Usar ejecutar el método de objeto de conexión
'--- Fijar objRs=objConn.Execute (el strSql)
'--- //
'*** /// O **** de ///
'//Method 2: Usar ejecutar el método de objeto de conexión
Fijar los objRs = CreateObject (“ADODB.Recordset”)
strSql de objRs.Open, objConn
'/