请高手帮我找错。谢谢了

Question

      Set cnn = New ADODB.Connection 
      Set rs = New ADODB.Recordset 
      cnn.CursorLocation = adUseClient 
      cnn.connectionstring = connstr 
      cnn.Open 
    rs.Open "SELECT * FROM 成绩表", cnn, adOpenDynamic, adLockOptimistic 
    Do While Not rs.EOF 
        If rs("准考证号") = Trim(Text1.Text) Then 
          With rs 
            qn21 = CLng(rs.Book) 
            rs.MoveNext 
            If Not rs.EOF Then 
              Text1.Text = .Fields("准考证号") 
            Else 
              rs.MoveFirst 
              Text1.Text = .Fields("准考证号") 
            End If 
          End With 
          Exit Do 
        End If 
        rs.MoveNext 
    Loop 
      cnn.Close 
SQL的连接是：connstr = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=" + UID + ";password=" + pwd + ";Initial Catalog=" + SysDB + ";Data Source=" & srn 
执行没有反应。。请指教