funnit vad jag sökte efter
'**********************************************************************,
'Visual Basic ActiveX skrivar
'**********************************************************************,
Fungera huvudsakligt ()
Dunkla objRs
Dunkel objConn
Dunkel strSql
Dunkel strHtml
Fastställd objConn = CreateObject (”ADODB.Connection”)
objConn.Open ”Provider=SQLOLEDB; Data Source= (lokal); Trusted_Connection=yes; Initiala Catalog=Northwind”,
strSql = ”väljer räkning (*) från bordlägger var villkora”,
',--- //Method 1: Using utför metoden av anslutning anmärker
',--- Uppsättning objRs=objConn.Execute (strSql)
',--- //
'*** /// ELLER /// ****,
'//Method 2: Using utför metoden av anslutning anmärker
Fastställda objRs = CreateObject (”ADODB.Recordset”)
objRs.Open-strSql, objConn
'/