I'm having an issue getting specific data from Excel to import into a form. The problem I think is that it's not looping thru the rows in the worksheet. It only displays the first data row  first row contains the data header. I'm matching the Request_ID on both the form and worksheet in order to pass the data from the spreadsheet. Request_ID is NOT a key it's just information from an external system that is manually put in the DB.

This is my code:

Code

Dim xlApp As Object
Dim xlWorkbook As Object
Dim xlWorksheet As Object
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
Dim rowNum As Integer
Dim REQUEST_ID As Variant
Dim lastRow As Long
'Dim strRequestID As String ' Variable to store the Request_ID from the Access form

' Open the Excel workbook and worksheet
Set xlApp = CreateObject("Excel.Application")
Set xlWorkbook = xlApp.Workbooks.Open("C:\Users\c365335\Desktop\Kit Status N Shipping DB\RKD AC Schedules\" & Me.RKDID.Value & "_" & Me.RKDConfig.Value & "_" & "AC_Schedule" & ".xlsx")
Set xlWorksheet = xlWorkbook.Worksheets("Sheet1") ' Replace "Sheet1" with the name of your worksheet

' Retrieve the Request_ID from the Access form
'strRequestID = Me.REQUEST_ID.Value

' Retrieve the data from the Excel worksheet
Set db = CurrentDb()
Set rs = db.OpenRecordset("SELECT * FROM [KitUpdates] WHERE [Request_ID]='" & Me.REQUEST_ID.Value & "'")

rowNum = 2 ' Start with the first row of data

' Loop through the rows in the Excel worksheet
Do Until rowNum > xlWorksheet.UsedRange.Rows.Count
    ' Retrieve data from Excel and assign it to form controls
    REQUEST_ID = xlWorksheet.Cells(rowNum, 3).Value

    If Not IsNull(REQUEST_ID) And REQUEST_ID <> "" Then
Set rs = db.OpenRecordset("SELECT * FROM [KitUpdates] WHERE [Request_ID]='" & xlWorksheet.Cells(rowNum, 3) & "'")
        ' Rest of your data processing code
    Else
        ' Handle the case where REQUEST_ID is empty or null
    End If

    rowNum = rowNum + 1 ' Move to the next row
Loop

' Separate loop for updating form controls and executing SQL commands
rowNum = 2 ' Reset rowNum to the beginning of the data

Do Until rowNum > xlWorksheet.UsedRange.Rows.Count
    Me.ACNo.Value = xlWorksheet.Cells(rowNum, 5) ' Replace 1 with the appropriate column number
    Me.InductionDate = xlWorksheet.Cells(rowNum, 6)
    Me.KitNeedDate = xlWorksheet.Cells(rowNum, 7)
    Me.FinalDDD = xlWorksheet.Cells(rowNum, 8)
    Me.RMComments.Value = xlWorksheet.Cells(rowNum, 9)
    
    ' Update the KitUpdates table with the new data
    strSQL = "UPDATE KitUpdates SET AC='" & Me.ACNo.Value & "', [Induction Date]='" & Me.InductionDate & "', [Kit Need Date]='" & Me.KitNeedDate & "', [Final DDD]='" & Me.FinalDDD & "', [RM Comments]='" & Me.RMComments.Value & "' WHERE [Request_ID]=" & xlWorksheet.Cells(rowNum, 3).Value & ";"
    
    Debug.Print strSQL
    db.Execute strSQL
    
    rowNum = rowNum + 1 ' Move on to the next row
Loop

xlWorkbook.Close ' Close the Excel workbook
xlApp.Quit ' Quit the Excel application
Set xlWorksheet = Nothing
Set xlWorkbook = Nothing
Set xlApp = Nothing

rs.Close ' Close the recordset
Set rs = Nothing
Set db = Nothing

This is what I get in the immediate window from a Debug.Print
UPDATE KitUpdates SET AC='P020', [Induction Date]='12/15/2023', [Kit Need Date]='11/15/2023', [Final DDD]='1/19/2024', [RM Comments]='Test 1' WHERE [Request_ID]=C17KIN1900001;

This data is correct for the first row of data only of the spreadsheet