Public Class LlenaCombo
    Private Command As New Command()

    Public Sub LlenaData(ByVal NombreCatalogo As String, ByVal Combo As ComboBox, ByVal Tabla As DataTable)
        Try
            Tabla.Clear()
        Catch
        End Try
        Try
            Command.spsql = NombreCatalogo
            Combo.DataSource = Command.SeleccionCombo(Command.spsql, Tabla)
            If Combo.Name = "cboClientes" Or Combo.Name = "cboEstado" Or Combo.Name = "cboSucursal" Or Combo.Name = "cboTipEmp" Then
                Combo.ValueMember = "clave"
            Else
                Combo.ValueMember = "Id"
            End If
            Combo.DisplayMember = "nombre"
        Catch

        End Try
        'Combo.ValueMember = "Id"
        'Combo.DisplayMember = "nombre"

    End Sub

End Class