Соединение к MS SQL Server через VB6

Function MakeCNTS(sSVR$, sDB$, sUSER$, sPWD$) As String
Dim sCNTS As String
    sCNTS = "Provider=SQLOLEDB.1;"
    sCNTS = sCNTS & "server=" & sSVR & ";"
    sCNTS = sCNTS & "database=" & sDB & ";"
    sCNTS = sCNTS & "uid=" & sUSER & ";"
    sCNTS = sCNTS & "pwd=" & sPWD & ";"
    MakeCNTS = sCNTS
End Function
Private Function CheckConnection() As Byte
On Error GoTo errC:
Dim db As New ADODB.Connection
    sSVR = txtServer.Text
    sUSERNAME = txtUserName.Text
    sPWD = txtPassword.Text
    sDBNAME = txtDB.Text
    CNTS = MakeCNTS(txtServer.Text, txtDB.Text, txtUserName.Text, txtPassword.Text)
    CheckConnection = 0 'succesful connection
    db.CommandTimeout = 30
    db.Open CNTS
    db.Close
    Set db = Nothing
    Exit Function
errC:
    Select Case Err.NUMBER
        Case -2147217843: CheckConnection = 1 'Login failed
        Case Else: CheckConnection = 2 'wrong DB
    End Select
End Function

Private Sub Form_Load()
    Set cn = New ADODB.Connection
    cn.Provider = "SQLOLEDB.1"
    cn.ConnectionString = "Persist Security Info=False;User ID=serg;Initial Catalog=Demo1;Data Source=SERVERDATA"
    
   On Error GoTo MsgBox1
    
    cn.Open
    
    MsgBox ("Все ок !!!")
    
   End