Private Sub Button_aceptar_Click(sender As Object, e As EventArgs) Handles Button_aceptar.Click
 
        orden = "Select * from experto where usuario = '" & Trim(TextBox_usuario_experto.Text) & "'"
        t_experto.CommandText = orden
        registro = t_experto.ExecuteReader
 
        If registro.HasRows = True Then
            registro.Read()
 
            If registro(0) = Trim(TextBox_usuario_clave.Text) Then
                'Hacer
            Else
                MsgBox("Datos Incorectos", MsgBoxStyle.Critical, "Error")
            End If
        Else
            MsgBox("Datos Incorectos", MsgBoxStyle.Critical, "Error")
        End If
 
    End Sub