How do I insert record into the table from recordset?

[Sunny]

In vba code, How can I insert recrds into one table from recordset defined
earlier in the code. I want something like this:

Dim rsClient As Recordset
Dim stSQL As String

Set rsClient = CurrentDb.OpenRecordset(Name:="Clients", Type:=dbOpenDynaset)
stSQL = "INSERT INTO TEMPCLIENT1 SELECT * FROM rsClient" 'rsClient is
not a table in database it is recordset set in previous line
CurrentDb.Execute (stSQL)

Any other alternative?
Thanks.

 

[Chris Nebinger]

Dim rsClient as DAO.Recordset
Dim dbs as DAO.Database
dim fld as New Field
Dim rs as DAO.Recordset
Set dbs=CurrentDB

Set rsClient = dbs.OpenRecordset(Name:="Clients",
Type:=dbOpenDynaset)
set rs = dbs.OpenRecordset ("Select * from tempClient1")
Do until rsClient.Eof
rs.AddNew
For Each fld in rsClient.Fields
rs(fld.name)=fld.value
Next fld
rs.update
rsClient.MoveNext
Loop


Chris Nebinger