Module BarraInformacion
    Public Sub DatosBarra(ByVal Barra As StatusBar, ByVal usuario As String)

        Dim Command As New Command()
        Try
            Command.spsql = "spcbDatosUsuario '" & My.User.Name & "'"
            Command.Lee(Command.spsql)

        Catch a As Exception
            MessageBox.Show(a.Message)
        End Try

        Barra.Panels(0).Text = usuario
        Barra.Panels(2).Text = Command.dtReader("Nombre")
        Barra.Panels(1).Text = Command.dtReader("NombrePerfil")
        Barra.Panels(3).Text = CType(Date.Today, String)
        Barra.Panels(4).Text = dmModulo._Servidor
        Barra.Panels(5).Text = dmModulo._DB
        Command.dtReader.Close()
    End Sub

End Module