1． 定義連接對象
    Global DBconnect As New ADODB.Connection
    2． 執(zhí)行連接語句
    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． 取查詢結(jié)果集
    Global RS As New ADODB.Recordset
    Global PS As New ADODB.Recordset
    If RS.State = adStateOpen And Not IsEmpty(adStateOpen) Then RS.Close
    RS.Open SQLStr, DBconnect, adOpenKeyset
    4． 執(zhí)行SQL語句
    DBconn.Execute SQLStr
    5． 關(guān)閉數(shù)據(jù)庫
    DBconnect.Close