Passing Value Of Recordset Into Where Clause

Hello! First time post, and I'm desperate for some help.

I am trying to use a loop through a recordset, pass the value of the current record into a WHERE
clause, run an append query based on the value of that record THEN loop through the recordset, pick the
next value, pass it to the WHERE clause, run the append, etc. I finally figured out how to set a variable as a
parameter for my WHERE clause and how to loop through a recordset.

My problem is this, I cannot get the variable (myvar) to update with the next value from the next record in
the recordset. My code loops through all records just fine, but it only appends the query result based on the
value of the first record. In short, I get 134 appended records all with the same value because myvar
never changes.

My code looks like this:

Public Sub OpeningARecordset()
Dim db As Database
Dim rec As Recordset
Dim myvar As Double
Set db = CurrentDb()
Set rec = db.OpenRecordset("Select SRS_SKU FROM tblUniqueSKUListing")
myvar = rec("SRS_SKU")
rec.OpenRecordset
Do Until rec.EOF
rec.MoveFirst
DoCmd.RunSQL ("INSERT INTO [Loc Group Names] ( SRS_LOCGROUP, [Loc Group] )" _
& " SELECT tblUniqueSKUListing.SRS_SKU, tblUniqueSKUListing.SM_DESC" _
& " FROM tblUniqueSKUListing WHERE (((SRS_SKU)=" & myvar & "));")
rec.MoveNext
Loop
rec.Close
End Sub

Can anyone shed some light on how I get myvar to update with the value of the next record once the append
is done?

Any help is extremely appreciated!!!

swenerst