Hasta ahora tengo este codigo pero no se si sea del todo correcto.
Código:
Cualquier Aporte se agradece y por lo pronto gracias Private Sub TextCodigo_Change() If rs.State = 1 Then rs.Close rs.Open "SELECT * FROM Principal WHERE Clave = '" & TextCodigo.Text & "'", cnn, adOpenStatic, adLockOptimistic If rs.RecordCount = 0 Then MsgBox "No Se encontraron Registro con el Numero de Control " & TextCodigo.Text & "", vbCritical, "Error de Entrada..." Else Do While Not rs.EOF rs.Fields("Nombre") = TextNombre.Text rs.Fields("Categoria") = TextCategoria.Text rs.Fields("Departamento") = TextDepartamento.Text rs.MoveNext Loop End If End Sub