Hola amigo alexis17 haber si te es de util este codigoCódigo: Text
Private Sub RecuperarCombo() Dim ds As DataSet Dim da As New SqlDataAdapter("select idtienda,Descripcion from tienda", My.Settings.ProgConnectionString) ds = New DataSet da.Fill(ds, "tienda") Me.cnombre.DataSource = ds.Tables(0) Me.cnombre.DisplayMember = "Descripcion" Me.cnombre.ValueMember = "idtienda" End Sub