ado联接问题

Question

Public Sub InitConnection()
On Error GoTo ErrProc
    If CustConnectioned = False Then
        Dim Str As String
        Set Conn = New ADODB.Connection
        If ServerName = "" Then GoTo ErrProc
        strSQL = "driver={SQL SERVER};server=" + ServerName + ";uid=sa;database=Ticket;pwd="
        Conn.Open strSQL
        CustConnectioned = True
    End If
        Exit Sub
    
ErrProc:
    CustConnectioned = False
    Set Conn = Nothing
    Exit Sub
End Sub

Answer 1

strSQL = "driver={SQL SERVER};server=serverdata ;uid=sa;database=Ticket;pwd="

Answer 2

去看看这儿的http://www.csdn.net/expert/topic/698/698245.xml?temp=.2921259