关于ACCESS数据库的问题

Question

各位大虾,我建立一个数据库,D:\PIMS\JILU1,里面有一个表KUCUN,分为字段"货号""库存数量"等,我在窗体中建立了个TEXT1.TEXT,COMMAND1,用ADODC1连接,现在只有ADODC1设置了属性,如下 :
Adodc1.connectingstring:DSN=kucun
adodc1.datasource:kucun
adodc1.commadtype:8-...
其他都没有设置
我现在想要在TEXT1.TEXT中输入内容,通过COMMAND1判断,TEXT1.TEXT中的内容在字段"货号"中是否存在,如果存在就弹出对话框"存在"如果没有则弹出"不存在"
请问该怎么写代码?还有TEXT1.TEXT的属性?
谢谢,20分,了表心意,比较着急!

Answer 1

1.连接数据库
2.检查，
   sql="select * from db where 货号 like " & text1.text
执行查巡
3.有数据，则存在，无数据，则不存在 

Answer 2

一楼的 正解  
但是如果要求TEXT1.TEXT中的内容在字段"货号"中是一样的 就用 “=” 不用 “like” 

Answer 3

Private Sub CommandButton1_Click()
    Dim I As Integer
    Dim blnJ As Boolean
    
    adodc1.Movefirst
    
    While Not adodc1.Recordset.EOF
        If text1.Text = adodc1.Recordset.fields("货号") Then
            blnJ = True
            Exit For
        End If
        adodc1.Movenext
    Wend
       If blnJ Then
        MsgBox "存在"
    Else
        MsgBox "不存在"
    End If
    
        
End Sub