I run the code below and get an error 'Data Type Conversion Error':

Sub DAOFromExcelToAccess()
' exports data from the active worksheet to a table in an Access database
' this procedure must be edited before use
Dim db As Database, rs As Recordset, r As Long
Set db = OpenDatabase("C:\TFI.mdb")
' open the database
Set rs = db.OpenRecordset("tblTFI", dbOpenTable)
' get all records in a table
r = 3 ' the start row in the worksheet
Do While Len(Range("A" & r).Formula) 0
' repeat until first empty cell in column A
With rs
.AddNew ' create a new record
' add values to each field in the record
.Fields("ID") = Range("A" & r).Value
.Fields("PROJECT NAME") = Range("B" & r).Value
.Fields("DATE REC") = Range("C" & r).Value
' add more fields if necessary...
.Update ' stores the new record
End With
r = r + 1 ' next row
Loop
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
End Sub

The error occurs on this line:
..Fields("ID") = Range("A" & r).Value

I have the reference to DAO.

The code is from this site:
http://www.erlandsendata.no/english/...badacexportdao

I can't determine what the issue is. I'm guessing the problem is in the
Access table... Can someone figure out what may cause this issue? I would
like to take the all data from one specific sheet, I guess it could be active
sheet or the sheet name "TFI". Anyway, I want to send all records from this
sheet to the Access table, named tblTFI. I am hoping to overwrite all data
in that Access table. Right now there is data in that Access table (from
last week). The table is not empty. m Is this causing the problem? What do
I need to do to overwrite all data in the Access table with the current data
from the Excel sheet?


Regards,
Ryan--