1． 定义连接对象

　　Global DBconnect As New ADODB.Connection

　　2． 执行连接语句

　　If DBconnect.State = adStateOpen And Not IsEmpty(adStateOpen) Then DBconnect.Close

　　连接ODBC

　　DBconnect.ConnectionString = "dsn=DataAliasName;uid=UserID;pwd=Passwd;"

　　直接连接Access为

　　Dbconnect.Provider = "Microsoft.jet.OLEDB.4.0"　// Access 97为3.51

　　DBconnect.ConnectionString = "FilePathFileName.mdb"

　　连接Oracle

　　DBconnect.Provider = "MSADORA"

　　DBconnect.ConnectionString = "user/mypass@servicename

　　连接SQL Server

　　DBconnect.Provider = "SQLOLEDB.1"

　　DBconnect.ConnectionString = "DATABASE= ;SERVER= ;UID= ;PWD= ;"

　　或者可以使用 DBconnect.Open "SERVER" , "USERID" , "PASSWORD"

　　DBConnect.Open

　　3． 取查询结果集

Global RS As New ADODB.Record
Global PS As New ADODB.Record
If RS.State = adStateOpen And Not IsEmpty(adStateOpen) Then RS.Close
　　 RS.Open SQLStr, DBconnect, adOpenKey

　　4． 执行SQL语句

　　DBconn.Execute SQLStr

　　5． 关闭数据库

　　DBconnect.Close