ado与sql server的連接問題

Question

我在ado控件的控件屬性里連接sql server數據是可以連接數據
但在下面寫入代碼就不能連接數據,錯在何處？
Private Sub Form_Load()
Dim strConn  As String
Dim strSQL1  As String
Dim conn1    As New ADODB.Connection
Dim rs1      As New ADODB.Recordset
Set conn1 = New ADODB.ConnectionstrConn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=KHD;Data Source=dfrg"
conn1.Open strConnrs1.CursorLocation = adUseClient    strSQL1 = " select  * from khb "    rs1.Open strSQL1, conn1, adOpenDynamic, adLockOptimistic
    Set DataGrid1.DataSource = rs1
end　sub

Answer 1

strConn = "Provider=sqloledb;Data Source=dfrg;Initial Catalog=" & "KHD" & ";User Id=sa;Password="""""

Answer 2

昏迷 
Private Sub Form_Load()
Dim strConn  As String
Dim strSQL1  As String
Dim conn1    As New ADODB.Connection
Dim rs1      As New ADODB.Recordset
Set conn1 = New ADODB.Connection
'加上Set rs1 = New ADODB.RecordsetstrConn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=KHD;Data Source=dfrg"
conn1.Open strConnrs1.CursorLocation = adUseClient    strSQL1 = " select  * from khb "    rs1.Open strSQL1, conn1, adOpenDynamic, adLockOptimistic
    Set DataGrid1.DataSource = rs1
end　sub

Answer 3

Private Sub Form_Load()
    Dim strConn As String
    Dim pubConn As New ADODB.Connection
    Dim rsTable As New ADODB.Recordset
    Dim strSQL As String    'Access 2000的連接
    strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\North.mdb;Persist Security Info=False"
    'SQL Server2000的連接
    strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=develop; password=12345;Data Source=ServerName"
    pubConn.Open strConn    rsTable.CursorLocation = adUseClient
    strSQL = "select  * from TableName"
    rsTable.Open strSQL, pubConn, adOpenDynamic, adLockOptimistic
    Set DataGrid1.DataSource = rsTableEnd Sub

Answer 4

可以去掉 rs1.CursorLocation = adUseClient!!
　　還要考慮　 tztz520(午夜逛街) ( ) 　！！！

Answer 5

hdhai9451(※★開拓者...前進☆※) 的不错

Answer 6

strConn= "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;pwd=xxx;Data Source=IP"
你的 strConn 少了 User , pwd !!!!!!!