写一段标准的ADO访问数据库的代码
1、连接
Dim strConn
Dim MyConn
strConn = "Provider=SQLOLEDB.1; Integrated Security=SSPI; Persist Security Info=false; Initial Catalog=abc; Data Source=.\WinCC"
Set MyConn = CreateObject("ADODB.Connection")
With MyConn
.ConnectionString = strConn
.CursorLocation = 3 'adUseClient
.Open
End With