Consulta en ADO

otsuj1
02 de Diciembre del 2003
Hola amigos gracias por su ayuda

Este es mi codigo de mi consulta

With rdc1

.Source = "SELECT * FROM Emporio1 WHERE[Spc_Acct] Like '%" & st & "%'"
.ActiveConnection = cnEmporio
.CursorType = adOpenStati
.CursorLocation = adUseClient
.LockType = adLockOptimistic
End With
rdc1.Open
Cargo la consulta en variables y despues las mando a una tabla en access, este es el codigo siguiente.
Confp = rdc1.Fields("Conf")
Roomp = rdc1.Fields("Room")
Namep = rdc1.Fields("Name")
Adup = rdc1.Fields("A")
ninop = rdc1.Fields("N")
Cntyp = rdc1.Fields("Cnty")
Natlp = rdc1.Fields("Natl")
Rp = rdc1.Fields("R")
Cityp = rdc1.Fields("City_St")
PSrcp = rdc1.Fields("PSrc")
Mktp = rdc1.Fields("Mkg")
'Pkgp = rdc1.Fields("Pkg")
Calc_Ratep = rdc1.Fields("Calc_Rat")
Over_Ratep = rdc1.Fields("Over_Rate")
Spc_Acctp = rdc1.Fields("Spc_Acct")
TAp = rdc1.Fields("TA")
stp = rdc1.Fields("st")

With consulta
.AddNew
!Conf = Confp
!Room = Roomp
!Name = Namep
!A = Adup
!n = ninop
!Cnty = Cntyp
!Natl = Natlp
!R = Rp
!City_St = Cityp
!PSrc = PSrcp
!Mkg = Mktp
!Calc_Rat = Calc_Ratep
!Over_Rate = Over_Ratep
!Spc_Acct = Spc_Acctp
!TA = TAp
!st = stp
.Update
'.MoveNext
.Bookmark = .Bookmark
End With

lo que no se es como buscar mas datos en la tabla de donde se va hacer la consulta, para posteriormente cargarlo en la suiguiente tabla.
Ha otra pregunta cuates alguien sabe donde puedo encontrar manuales de Cristal Repor 7.0 en español.

Gracias amigos espero me puedan ayudar ya que estoy iniciando en esto y no tengo mucho materias sobre esto.
bye. [email protected]