este es el codigo que hice para realizar una consulta y me la mostrara en un datagrid1 por medio de un data combo, claro que primero hice la prueba con la peticion siguiente
Private Sub Form_Load()
Set MiConexion = New ADODB.Connection
MiConexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = " & Ruta & "INVENTARIO.mdb;Persist Security Info = False"
MiConexion.Open
Dim Comando As String
Comando = "select notas_detalle.piezas,notas_detalle.producto2,notas _detalle.total from notas_detalle where notas_detalle.notanumero = 155"
Ruta = App.Path & "\INVENTARIO.mdb"
Set MiConexion = New ADODB.Connection
MiConexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & Ruta & ";Persist Security Info = False;Jet OLEDB:Database Password=xxxx"
MiConexion.Open
Set MiRecordSet = New ADODB.Recordset
MiRecordSet.Open "select notas_detalle.piezas,notas_detalle.producto2,notas _detalle.total from notas_detalle where notas_detalle.notanumero = 155 ", MiConexion, adOpenDynamic, adLockOptimistic
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & Ruta & ";Persist Security Info = False;Jet OLEDB:Database Password=xxxx"
' Adodc1.CommandType = 8
'Adodc1.RecordSource = "select notas_detalle.piezas,notas_detalle.producto2,notas _detalle.total from notas_detalle where notas_detalle.notanumero = 155 "
en esta consulta le pido que me muestre piezas, productos, y total de la notanumero 155 de la tabla notas_detalle..
pero, todo esto lo hice enlazando adodc1 desde propiedades y realizando la consulta, desde ahí si me la hace, pero lo que quiero es pedir la consulta desde un datacombo o una caja de text1.text
si alguien me puede ayudar.. soy principiante..
'End Sub