Visual Basic - Data Combo con SQL

Hola amigos:

Oigan me gustaría saber si alguien me puede decir como puedo poner en la lista de un data combo el resultado que genere una instrucción SQL

Les agradezco de antemano

Juan Salvador

Prueba abriendo un objeto Recordset de ADO y Luego en su Prorpiedad SOURCE le envias la sentencia SQL para después enlazarlo a las propiedades del DataCombo.

Asi:

Option Explicit
Dim WithEvents adoPrimaryRS As Recordset

Private Sub Form_Load()
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=C:\Archivos de programa\Microsoft Visual Studio\VB98\Nwind.mdb;"

Set adoPrimaryRS = New ADODB.Recordset

adoPrimaryRS.Source = "Select NombreProducto From Productos"
adoPrimaryRS.ActiveConnection = db
adoPrimaryRS.Open

Set DataCombo1.RowSource = adoPrimaryRS
DataCombo1.ListField = "NombreProducto"
.
.
.

Espero que te sirva de algo y haber si me mandas algo acerca del MSDataShape para armar Reportes sin usar el DataEnvironment

Saludos.