Public Class LlenaGrid
    Private Command As New Command()

    Public Sub LlenaData(ByVal Sentencia As String, ByVal Grid As DataGrid, ByVal Tabla As DataTable)
        Try
            Tabla.Clear()
        Catch
        End Try
        Try
            Command.spsql = Sentencia
            Grid.DataSource = Command.SeleccionGrid(Command.spsql, Tabla)
        Catch e As Exception
            MessageBox.Show(e.Message)
        End Try

    End Sub

End Class