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
