我想在单击COMMAND时可以将数据加到数据库中,但是当添加时总会覆盖第一条记录这是代码请帮忙看看

Private Sub Command1_Click()
WebBrowser1.Navigate Combo1.Text
Dim i%
Adodc1.Recordset.MoveFirst
For i = 1 To Adodc1.Recordset.RecordCount + 1
If Combo1.Text = Text1.Text Then GoTo b
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast
Next i
Adodc1.Refresh
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("地址") = Combo1.Text
'Adodc1.Recordset.Update
'Adodc1.Recordset.MoveLast
Adodc1.Refresh
b:
End Sub

我想在单击COMMAND时可以将数据加到数据库中,但是当添加时总会覆盖第一条记录这是代码请帮忙看看 一个硬盘分区鼠标单击显示无法无法找到command 高手帮帮忙....如何设置在启动时不需要单击帐户图标可以直接输入密码 怎么使系统在登陆时不用单击用户名就可以直接输密码登陆 有谁能告诉我一些可以在“运行”里使用的指令呀！还有就是在进入“command”下的测试命令！ 我在DOS下格式硬盘时 出现Bad command or file name VB中怎么让command button在运行时不能点 在VB中的COMMAND事件问题~急救！！！ 单击版的半条命（反恐精英）在哪里可以下载？ 在word 的编辑状态，单击按钮 后可以