Populating Temp Tables

Here's the scenario:
I create a temp table structure, which works fine.
I create a recordset from SQL pulling data from a DB2 connection. This works fine.
I want to put the entire recordset result into the temp table.

I have a working means of doing this, but it is very inefficient and leaves the user staring at an hourglass for a minute or two.

What I am currently doing is iterating through each record of the recordset and appending it to the temp table. Desired results, yes, but takes way too much time.

Is there any way to simply 'dump' an entire dataset into the table, instead of on a record-by-record basis?



Here's some code from how I am currently doing things:

Set cmdP1 = New ADODB.Command
Set cmdP1.ActiveConnection = cnnP1
cmdP1.CommandText = "SELECT DISTINCT distribution_id FROM " & sDB & " ORDER BY distribution_id"
Set rstP1 = cmdP1.Execute

Do Until rstP1.EOF
With rst_Temp
.AddNew
.Fields!distribution_id = rstP1!distribution_id
.Update
End With
rstP1.MoveNext
Loop


Any help will be most appreciated! Thanks!

John