Hi

add .update to your code and move rs.close above cn.close and it should work

Do While Len(Range("A" & r).Formula) > 0

With rs
.AddNew
' add values to each field in the record.
.Fields("Empno") = Range("A" & r).Value
.Fields("Empname") = Range("B" & r).Value
.Fields("Desig") = Range("C" & r).Value
.Fields("Address") = Range("D" & r).Value
.Fields("Contactno") = Range("E" & r).Value
.Fields("Salary") = Range("F" & r).Value
.Update
End With

r = r + 1 'next row
Loop

rs.Close
cn.Close
Set cn = Nothing
Set rs = Nothing
regards
qff