Al final para devolver todos los registros de una fila, usamos esto...
Código vb:
Ver originalSub consultaroficial(ByRef idoficial As String)
Dim Comando As New MySqlCommand("SELECT cedula,Nombre,Apellido,idComponente,idRango,instructor FROM oficiales where idoficial = '" & idoficial & "'", Con)
'Try para capturar los errores
Try
'antes de abrir conexión nos aseguramos que no exista conexión establecida previa
If Not Con Is Nothing Then Con.Close()
'abrimos conexión
Con.Open()
'declaramos la variable de tipo entero que contendrá las filas afectadas y ejecutamos
'el comando
Dim reader As MySqlDataReader = Comando.ExecuteReader
If reader.Read Then
editar_alumno.TextBox3.Text = Trim(reader("cedula"))
editar_alumno.TextBox1.Text = Trim(reader("Nombre"))
editar_alumno.TextBox2.Text = Trim(reader("Apellido"))
editar_alumno.ComboBox2.SelectedValue = CInt(reader("idComponente"))
editar_alumno.ComboBox3.SelectedValue = CInt(reader("idRango"))
If reader("Instructor") = "1" Then
editar_alumno.CheckBox1.CheckState = CheckState.Checked
Else
editar_alumno.CheckBox1.CheckState = CheckState.Unchecked
End If
End If
'mandamos como retorno en múmero de filas afectadas
'pero utilizamos Tostring para pasar el valor de número entero a cadena de texto
'porque hay que recordar que la función devuelve un valor de tipo string
'capturamos a partir de aquí si hay errores
Catch ex As Exception
'y si hay errores retornamos el mensaje de error
MsgBox(ex.Message, MsgBoxStyle.Critical)
'y con Finally que es parte de TRY CATCH y END TRY
'ponemos el código que se ejecutará se produzca o no un error
Finally
'cerramos la conexión
Con.Close()
'y esto es muy importante, el objeto comando que habiamos creado
'lo eliminamos de la memoria
Comando = Nothing
'finalizamos la captura de errores
End Try
End Sub
Muchas gracias por la ayuda...