Wow :) It's nice having an account here... Should've done this 10 years ago :))))
Public Sub CreateSQLValues(cColumns As String, cIndex As String, cLocTable As String, cExtTable As String, nRows As Integer, Optional IdMin As Long = 0, Optional IdMax As Long = 0)
Dim Rc As DAO.Recordset
Dim Qc...