Buenas a todos, estoy haciendo un proyecto con un dgv de 4 campos codigo, nombre, moneda y precio la idea es que al escribir un codigo en el primer campo llene los campos de nombre y moneda, a lo cual todavia no llego por que primero debo de programar la parte del error en donde si el codigo no existe en la base de datos manda un mensaje de error la cual ya hace pero lo que no he podio encontrar es como hacer que el foco no se mueva del campo codigo hasta que no sea correcto el contenido, lo hago de la siguiente manera:
Dim nombre As String = Convert.ToString(DGVCliente.CurrentRow.Cells(0).Va lue)
If nombre = "" Or IsDBNull(nombre) Then
Else
Dim DataS As New DataSet
Adaptador = New OleDbDataAdapter("select * from A_C_Clientes where Codigo ='" + nombre + "'", Conexion)
Adaptador.Fill(DataS, "A_C_Clientes")
If DataS.Tables(0).Rows.Count = 0 Then
MsgBox("El cliente no existe")
DGVCliente.CurrentCell = DGVCliente.Rows(0).Cells(0)
End If
End If
esto lo hago en el evento SelectionChanged del dgv, esto solo me regresa al campo codigo cuando selecciono el tercer o cuarto campo.