hammmmmmmm
bueno... ya lo solucione, de todos modos gracias
le ise de otra manera
y posi, la sentencia que pones David... es la q uso, pero esa es nadamas para obtener mis datos, pero para saber cuales y de donde era lo q se me complicaba, pero gracias
pongo lo que ise
por si alguien algun dia lo necesita
jeje
Cita: Dim a As Integer
Call conectar
AdoS.Open "select count(clave_doc) as conta from prue1 where clave_doc='" & Text1.Text & "';", Cxn, adOpenStatic, adLockOptimistic
MsgBox AdoS!conta
a = AdoS!conta
Call conectar
AdoS.Open "select * from prue1 where clave_doc='" & Text1.Text & "';", Cxn, adOpenStatic, adLockOptimistic
For I = 1 To a
MsgBox AdoS!clave_mat
Combo1.AddItem AdoS!clave_mat
AdoS.MoveNext
Next I
Call conectar
AdoS.Open "select * from prue1 where clave_doc='" & Text1.Text & "';", Cxn, adOpenStatic, adLockOptimistic
For I = 1 To a
MsgBox AdoS!clave_grupo
AdoS.MoveNext
Next I
End Sub