引用ADO
Dim cn As ADODB.Connection   
    Set cn = New Connection    
    cn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=1;Initial Catalog=2;Data Source=3", "4", "5"
1、2、3、4、5参数中,4、5指的是用户名和密码。试试吧!

解决方案 »

  1.   

    Dim cnn As ADODB.Connection   
        Set cnn = New Connection    
         strCnn = "Provider=SQLOLEDB.1;Password=;Persist Security Info=True;User ID=sa;Data Source=192.168.0.9"
    cnn.ConnectionString = strCnn
        cnn.CursorLocation = adUseClient
        cnn.Open
      

  2.   

    Dim cnn As ADODB.Connection   
    Set Cnn = New ADODB.Connection
        With Cnn
            .ConnectionString = "Provider=SQLOLEDB.1;Password=1234;Persist Security Info=True;User ID=sa;PassWord=1234;" _
            & "Initial Catalog=blackcar;Data Source=192.168.0.9"
            .Open
        End With