[RESOLVED] db Error with Insert into table command

[Hack]

You also have fields broken up in your open statement.

Take a look. Your database is seeing email as ema
il

It is also seeing datarange.Pref as datar ange.Pref

and it is seeing datarange.menonic2 as dataran ge.menonic2

Put the whole thing in a string, and pass the string to your recordset object. It makes things easier to read and debug. Example:

Dim rs As New ADODB.Recordset
Dim sSQL As String
sSQL = "insert into data_delete(ID,FullName,ShortName,Contact,OwnerCo,Pref,Fax1,Fax2,Telex1,"
sSQL = sSQL & "Telex2,Memonic1,Memonic2,Email,Groups,CortexAccountNo) "
sSQL = sSQL & "Values(DataRange.ID,datarange.Fullname,datarange.shortname,datarange.contact,datarange.OwnerCo, "
sSQL = sSQL & "datarange.Pref,datarange.fax1,datarange.fax2,datarange.telex1,datarange.telex2,datarange.memonic1, "
sSQL = sSQL & "datarange.menonic2,datarange.Email,datarange.groups,datarange.cortexaccountno) "
rs.Open sSQL, CONNECTIONSTRING, adOpenDynamic, adLockOptimistic