Public Function seleccionarUsuario(ByVal nombre As String) As DataRow
Dim drUsuario As DataRow
dvUsuarios = New DataView
dvUsuarios.Table = dtUsuarios
dvUsuarios.RowFilter = ("nombre = '" & nombre & "'")
drUsuario = dvUsuarios.Table.Rows.Item(0)
Return drUsuario
dvUsuarios = Nothing
End Function