ADODB Record Upate

Try this

          If Not .EOF Then '<== ' Unique Id exists
             
            '.Fields("Job Number") = Range("A" & r).Value 'Unique key
            .Fields("Inspection Date") = Range("B" & r).Value
            .Fields("SHIP DATE") = Range("C" & r).Value
           
            .Update ' stores the new record 
            
          Else '<== Unique id does not exist
            
            .AddNew ' add values to each field in the record
            .Fields("Job Number") = Range("A" & r).Value 'Unique key
            .Fields("Inspection Date") = Range("B" & r).Value
            .Fields("SHIP DATE") = Range("C" & r).Value
            .Update
          End If