Estimados tengo un problema quisiera llenar un combobox con una consulta anidada, este es el código que tengo pero me lanza error, agradecería su ayuda Private Sub LLenarBodega() Dim da As New OleDbDataAdapter("select b.nombre as Bodega from Articulos a, Bodega b, ArtBo ab where a.Id_Art = ab.Id_Art and b.Id_Bod = ab.Id_Bod ", Cn) Dim dt As DataTable = New DataTable("Bodega") da.Fill(dt) With ComboBox1 .DataSource = dt .DisplayMember = "Nombre" .ValueMember = "Id_Bod" End With End Sub