请高手帮我看看我错在什么地方？

Question

Private Sub Command1_Click()
    Dim cnn As New ADODB.Connection
    Dim rs As New ADODB.Recordset, rs1 As New ADODB.Recordset
    cnn.connectionstring = connstr
    cnn.Open connectionstring
    rs.Open "select * from 成绩表", cnn, 1, 1
    cnn.Execute "Truncate table  成绩对比表"
    Do While Not rs.EOF
    rs1.Open "select * from [次成绩表] where (准考证号 = '" & rs("准考证号") & "') and ((姓名 <> '" & rs("姓名") & "') or (语文A <> '" & rs("语文A") & "') ", cnn, 1, 1
     If Not rs1.EOF Then
     cnn.Execute "insert into [成绩对比表] (准考证号,姓名,语文A)values('" & rs1("准考证号") & "','" & rs1("姓名") & "','" & rs1("语文A")"
     End If
     rs1.Close
     rs.MoveNext
    Loop
    rs.Close
   End Sub
上面是我的代码，可是总是提示”rs1.Open "select * from [次成绩表] where (准考证号 = '" & rs("准考证号") & "') and ((姓名 <> '" & rs("姓名") & "') or (语文A <> '" & rs("语文A") & "') ", cnn, 1, 1“有语法错误请指教  谢谢

Answer 1

rs1.Open "select * from [次成绩表] where 准考证号 = '" & rs("准考证号") & "' and (姓名 <> '" & rs("姓名") & "' or 语文A <> '" & rs("语文A") & "') ", cnn, 1, 1