Sub PanDuan()
    Dim cn As Object
    Set cn = CreateObject("ADODB.Connection")
    On Error GoTo ErrMsg
    cn.ConnectionString = "Provider=SQLOLEDB;Password=密码;Persist" _
                        & "Security Info=False;User ID=sa;Initial Catalog=数据名;" _
                        & "Data Source=IP地址,1433"
    cn.Open
    cn.Close
    Set cn = Nothing
    Exit Sub
ErrMsg:
    Set cn = Nothing
    MsgBox Err.Description
End Sub