MS Access - replicate records in a database

    Dim connDB As ADODB.Connection
    Dim miscRS As New ADODB.Recordset
    Dim qry As New Command
    Dim sql As String
    Dim fulSQL As String
    
    Dim ndx As Integer
    Dim startDT As Date
    Dim dtCnt As Integer
    
    
    Set connDB = CurrentProject.Connection
    
    Set qry.ActiveConnection = connDB

    sql = "SELECT * FROM <tblName> "
    
    miscRS.Open sql, connDB, adOpenStatic
    
    sql = "INSERT INTO <tblName> (<field1Name>, <field2Name>, <StartDateField>) VALUES ("
    
    Do While Not miscRS.EOF
    
        startDT = Miscrs!<startDateField>
        dtCnt = DateDiff("d", startDT, miscRS!<endDateField>)
        
        For ndx = 1 To dtCnt
            fullsql = sql & Miscrs!<field1Name> & "," & miscrs!<field2Name> & ",#" & dateAdd("d",ndx,startDT) & "#)"
            qry.CommandText = fullsql
            qry.Execute
        Next
        
        miscRS.MoveNext
    Loop
    
    miscRS.Close
    connDB.Close
    Set qry = Nothing
    Set connDB = Nothing