这段代码有什么错？

Question

你可以直接将 Set rs = cn.Execute("select * from d") 改成
Set rs = cn.Execute("select * from d where a='" & Text1.Text & "'")

Answer 1

then后不要跟语句，写成这样
If rs.Fields("a").Value = Text1.Text Then 
  MsgBox "ddfdf"
  flag = False
  Exit Do
Else
  rs.MoveNext
End If

Answer 2

If rs.Fields("a").Value = Text1.Text Then MsgBox "ddfdf"
  flag = False
  Exit Do
  Else
  rs.MoveNext
  End If改为：
If trim(rs.Fields("a").Value) = trim(Text1.Text) Then 
  MsgBox "ddfdf"
  flag = False
  Exit Do
Else
  rs.MoveNext
End If试试！！！！！！

Answer 3

不好意思这里有点问题(trim(rs.Fields("a").Value) = trim(Text1.Text))，如果字段值是字符串就可以，否则还是使用0自己的吧！！！！！！