verificar dato en tabla

[shadowGT]

Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDown Then
b = UCase(Text2.Text)
Adodc2.RecordSource = "Select * From Inventario where codigo ='" & b & "'"
Adodc2.Refresh

If Text4.Text = "" Then
MsgBox "Codigo Invalido,No Existe", vbCritical + vbOKOnly, "Error"
Text2.Text = ""
Text2.SetFocus
Else
End If
End If
End Sub


Espero te sirva solo cambia el nombre del text y este codigo funciona en el evento KeyDown del control textbox