о я искал
'**********************************************************************
'Сценарий Висуал Басич ActiveX
'**********************************************************************
Основа функции ()
Тусклые objRs
Тусклое objConn
Тусклое strSql
Тусклое strHtml
Установите objConn = CreateObject («ADODB.Connection»)
objConn.Open «Provider=SQLOLEDB; Данные Source= (местное); Trusted_Connection=yes; Первоначально Catalog=Northwind»
strSql = «выбирает отсчет (*) от таблицы где условие»
'--- //Method 1: Using исполните метод предмета соединения
'--- Установите objRs=objConn.Execute (strSql)
'--- //
'*** /// ИЛИ **** ///
'//Method 2: Using исполните метод предмета соединения
Установите objRs = CreateObject («ADODB.Recordset»)
strSql objRs.Open, objConn
'/