Question

VB，向数据库里添加数据的问题

Private Sub Command5_Click()
If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Then
MsgBox "库位号ID、库号和位号均不能为空！", , "错误提醒！"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
Exit Sub
End If
Adodc1.RecordSource = "select * from 库位信息表 where 库位代号='" & Text1.Text & "'"
If Adodc1.Recordset.EOF = False Then
MsgBox "已存在相同的库位代号！", , "错误提醒！"
Text1.Text = "" // 我想在添加数据前，先判断库位代号字段中有无相同的字段值，让后再添加
可是，不管添加的库位代号为何值，总会弹出MSGBOX，一直没想出原因，求大 神指点一下，谢谢！
Text1.SetFocus
Exit Sub
Else
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("库位代号") = Text1.Text
Adodc1.Recordset.Fields("仓库号") = Text2.Text
Adodc1.Recordset.Fields("位号") = Text3.Text
Adodc1.Recordset.Fields("库位描述") = Text4.Text
Adodc1.Recordset.Update
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Frame1.Visible = False
End If
End Sub

Answer 1

Adodc1.RecordSource = "select * from 库位信息表 where 库位代号='" & Text1.Text & "'"

Adodc1.Refresh
...
...