简单问题，在线等

Question

在插入记录时，我想先判断记录是否已经存在。
Dim conn As New ADODB.Connection
Dim connstr As String
Dim objrs As New ADODB.Recordset
Dim bianhao As String
  connstr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=sa;Initial Catalog=dossier trustee ;Data Source=IP"
 conn.Open connstr
 objrs.Open "select bianhao from charge where  bianhao = '" & bianhao & "'", conn, adOpenStatic, adLockReadOnly, adCmdText
譬如我想以bianhao进行查询，然后根据查询结果确定是否插入，若已有记录则提示不能插入。问题是不知怎么写。请大家帮忙

Answer 1

if objrs.bof=objrs.eof   then   '没有所要查询的内容

Answer 2

不过我还有点疑问，我编号是string类型，且按00001这种格式存储，但我在textbox里输入的内容，如为00002，但我取的时候得到的是2，和数据库里的00002比较不了啊，请问该怎么办

Answer 3

但我在textbox里输入的内容，如为00002，但我取的时候得到的是2?不明白，你怎么存取的？可以使用format函数例如：Format("2", "00000")得到的结果是"00002"