Private Sub Form_Load()
Dim cn As New ADODB.Connection
Dim re As New ADODB.Recordset
cn.Open "provider=microsoft.jet.oledb.4.0;data source=f:\temp.mdb"
re.Open "select * from Code_Info where code_ID='1014286106519197'", cn, adOpenStatic, adLockOptimistic
If re.RecordCount <> 0 Then '用该语句来进行判断
tt
Else
ll
End If
End Sub