encontrado o que eu procurava
'**********************************************************************
'Certificado de Visual Basic ActiveX
'**********************************************************************
Cano principal da função ()
objRs não ofuscantes
objConn não ofuscante
strSql não ofuscante
strHtml não ofuscante
Ajustar o objConn = o CreateObject (“ADODB.Connection”)
objConn.Open “Provider=SQLOLEDB; Origem de dados = (local); Trusted_Connection=yes; Catalog=Northwind inicial”
o strSql = “seleciona a contagem (*) da tabela onde a circunstância”
'--- //Method 1: Using executar o método do objeto de conexão
'--- Ajustar objRs=objConn.Execute (o strSql)
'--- //
'*** /// OU **** de ///
'//Method 2: Using executar o método do objeto de conexão
Ajustar os objRs = o CreateObject (“ADODB.Recordset”)
strSql de objRs.Open, objConn
'/