yo tampoco entendi muy bie lo que querias, pero lo que podes hacer en principio es armar el select a a la tabla de la siguiente manera
Código:
num_comptasel = Me.txtNumCompTa.Text
Dim strSql = "Select * From Caixa where numCompta = " & num_comptasel 'si esta es la variable donde guardas el valor que lees de la pantalla
objComando = New System.Data.OleDb.OleDbDataAdapter(strSql, strConexion)
objComando.Fill(objDS, "Select numcompta from Caixa")
If objDS.Tables(0).Rows.Count > 0 Then
'SI ENTRO ACA ES PORQUE REGISTROS QUE MATCHEAN CON LA CONSULTA
End If
por otra parte, el codigo no lo pondria en se evento, yo usaria el TextChanged del texbox, ya que este se ejecuta al perder el foco del texbox y si el valor del mismo se ha modificado
Saludos,