Public Class LlenaLista
    Private Command As New Command()
    Public Sub LlenaData(ByVal spsql As String, ByVal Lista As ListBox, ByVal Tabla As DataTable)
        Try
            Tabla.Clear()
        Catch
        End Try
        Try
            Command.spsql = spsql
            Command.SeleccionCombo(Command.spsql, Tabla)
        Catch
        End Try


    End Sub

End Class