請你call下這個簡單的VB程式

Question

請你call下這個簡單的VB程式，為什麼會報錯呢？
Sub ConnDb()
    Dim sqlStr
    Dim rs  As ADODB.Recordset
    Dim conn As ADODB.Connection
    Set conn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    conn.ConnectionString = "Driver=SQL Server;Server=itsql;" & _
"Uid=管理員;Pwd=admini;databse=peoatt"
    conn.Open
'    MsgBox conn.State
    'End
    sqlStr = "select * from  p_userM "
    rs.Open sqlStr, 3 '這行有報錯    For i = 1 To rs.RecordCount
        MsgBox rs("u_name") & vbCrLf
        rs.MoveNext
        If rs.EOF Then Exit For
    Next
    rs.Close
End Sub

Answer 1

rs.Open sqlStr, conn,4