Yo lo haria de la siguiente manera
Código vb:
Ver originalIf KeyCode = 13 Then
If Text1.Text.trim() = "" Then
MsgBox("Debe ingresar el N° de control para continuar. Favor verifique e intente de nuevo", vbOKOnly, "Error")
Text1.SetFocus
Else
'llenar tu datatable o dataset con la data como lo has hecho con otras consultas
'asumiendo que ds es donde traes la data
if ds.rows.count>0
'si entra aca es por que si existe la data
Text16.Text = Text1.Text
Command3.Enabled = True
Combo2.Enabled = True
Combo2.SetFocus
else
MsgBox("Número de control inexistente, favor verifique e intente de nuevo", vbOKOnly, "Error")
endif 'revision que venga data
endif 'revision del textbox vacio