ayuda con recorset

[vicentecamesella]

Saludos lo que quiero hacer es lo siguiente. en la sentencia insert into lo estoy mejorando en mi sistema quiero automatizarla

For x = 0 To rc.RecordCount - 1 'Cambiar valor hasta

For i = 0 To rc.Fields.Count - 1 'Cambiar valor hasta

If i < rc.Fields.Count - 1 Then 'Cambiar valor hasta
Valores = Valores & "'" & rc!rc.fields(i).name & "',"
Else
Valores = Valores & "'" & rc!rc.fields(i).name & "'"
End If

Next i

rc.MoveNext

Next x

eso es para evitar escribir rc!campo1, rc!campo2 pero me da error alguien me puede decir como hacerlo gracias de antemano