Excel to MDB conversion in VB 6.0 facing some problems

Sub CreateAndInsertIntoTable()

    Dim tbl             As New Table
    Dim cat             As New ADOX.Catalog
    Dim cn              As New ADODB.Connection
    Dim rec             As New ADODB.Recordset
    Dim fld             As ADODB.Field
    Dim recNew          As New ADODB.Recordset
    Dim strExcelPath    As String
    Dim intcnt          As Long
    
    Dim month           As Variant
    month = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24)
    Dim lngPosition     As Long
    Dim mtype           As Variant
    mtype = Array("Jan2006", "Feb2006", "Mac2006", "Apr2006", "May2006", "Jun2006", "Jul2006", "Aug2006", "Sep2006", "Okt2006", "Nov2006", "Dec2006", "Jan2007", "Feb2007", "Mac2007", "Apr2007", "May2007", "Jun2007", "Jul2007", "Aug2007", "Sep2007", "Okt2007", "Nov2007", "Dec2007")
    
    'Loop for all 24 months
    For lngPosition = LBound(month) To UBound(month)
    'Excel File Path
    strExcelPath = App.Path & "\" & month(lngPosition) & ".xls"
    
    'Opening Catalog Connection
    cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                           "Data Source=" & App.Path & "\data.mdb"
    
    'Opening Excel Connection
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
    & "Data Source=" & strExcelPath & ";Extended Properties=Excel 8.0;"
    
    'Opening Sheet in Excel Sheet Like a Table
    rec.Open "Select * from [0121_" & mtype(lngPosition) & "$]", cn, adOpenKeyset
        
    '------------------------------------------------------------------------------------
    'Creating Table
    '------------------------------------------------------------------------------------
    'Assigning Table Name
    Set tbl = New ADOX.Table
    tbl.Name = mtype(lngPosition)
    
    'Appending Column-The Col Name will be the Column name from the Sheet
    For Each fld In rec.Fields
        tbl.Columns.Append fld.Name
    Next
    'Creating Table using Catalog Object of ADOX
    cat.Tables.Append tbl
    'Opening the Newly created table in data.mdb
    recNew.Open mtype(lngPosition), cat.ActiveConnection, adOpenKeyset, adLockOptimistic
    'Making Pg Bar Visible
    ProgressBar1.Visible = True
    'Setting Max value of Pg BAr as No of Records in the Sheet
    If rec.RecordCount <> 0 Then
        ProgressBar1.Max = rec.RecordCount
    End If
    'Initialising Counter
    intcnt = 1
    Do Until rec.EOF
        'Calling DoEvents so as to see the counter correctly
        DoEvents
        With recNew
             .AddNew
            For Each fld In rec.Fields
                'Assigning value to the recNew Recordset for Insertion
                .Fields(fld.Name) = IIf(IsNull(rec(fld.Name)), "", rec(fld.Name))
            Next
            .Update
        End With
        'Assigning Value to PgBar Control
        ProgressBar1.Value = intcnt
        'Assigning Value to Label Control
        lblStatus.Caption = "Added " & intcnt & " Records..."
        'Incrementing Counter
        intcnt = intcnt + 1
        'Moving to Next Record
        rec.MoveNext
    Loop
        DoEvents
        'Showing the Location of MDB File
        lblStatus.Caption = "Open the MDB File at " & App.Path & "\data.mdb"
        ProgressBar1.Visible = False
        cn.Close
        recNew.Close
        
Next lngPosition
End Sub

    Dim xlApp           As Excel.Application
    Dim xlWb            As Excel.Workbook
    Dim xlSName         As String

    'Get excel worksheet name
    Set xlApp = New Excel.Application
    Set xlWb = xlApp.Workbooks.Open(App.Path & "\" & month(lngPosition) & ".xls")
    xlSName = xlWb.Worksheets(1).Name
    Debug.Print xlSName
    
    'Close excel
    Set xlWb = Nothing
    xlApp.Quit
    Set xlApp = Nothing

    'Do not copy empty rows at the end of the excel file
    sqlstr = "Select * from [" & xlSName & "$]"
    sqlstr = "DELETE FROM " & sqlstr & " WHERE CustomerNo IS NULL"

    'Opening Sheet in Excel Sheet Like a Table
    rec.Open " & sqlstr & ", cn, adOpenKeyset