Public ljdb As ADODB.Connection
Public cmd As ADODB.Command
Public dbf As New ADODB.Recordset
Public zhtl As Integer
Public Sub ondbf()    'Excel VBA连接sql数据库
    Set ljdb = New Connection
    ljdb.CommandTimeout = 180
    On Error GoTo connerr
        ljdb.Open "Provider=SQLOLEDB;Data Source=SQL服务器地址,端口;Initial Catalog=库名;Password=密码;User ID=用户名;"
    zhtl = 1
    Exit Sub
connerr:
    MsgBox "错误描述：" & Err.Description & vbCrLf & "错误代码：" & Err.Number, vbCritical + vbOKOnly, "连接服务器错误"
    zhtl = 0
End Sub

Public Sub offdbf()     '断开数据库
    If zhtl = 1 Then
        ljdb.Close
        Set dbf = Nothing
        Set ljdb = Nothing
        zhtl = 0
    End If
End Sub