'800a000d' types mismatch

Jeg har to databaser hvor jeg skal ha flyttet alle informationer fra den ene over i den anden, det vil jeg gøre med scriptet:

***************************************
<!--#include file="DB-Conn.asp"-->
<%
Set rs = Conn.Execute("Select * from mem_news")

Do while not rs.EOF
Tekst = replace(rs("message"),"'","''")
Head=replace(rs("head"),"'","''")
Dato=replace(rs("Dato"),"/","-")
Id_Dato=Year(Dato) & "-" & Month(Dato) & "-" & Day(Dato) & " 00:00:00"
SQL="Insert into News (Head, Message, Dato, Id_Dato) values('" & Head & "','" & Tekst & "','" & Dato & "','" & Id_Dato & "')"
Conn.Execute(SQL)
rs.Movenext
Loop
rs.Close
Set rs=Nothing
Conn.Close
Set Conn = Nothing
%>
***************************************
Men hvis jeg prøver får jeg 800a000d fejlen, som også vises herunder, sammen med at jeg har skrevet SQL ud:

Insert into News (Head, Message, Dato, Id_Dato) values('Frantic Sound','Der er kommet en mega-lækker andmeldse af MEMORIaLs koncert til WuLLa Rock 2003 i Grindsted. Læs den på www.franticsound.dk...ses på fredag!','3-12-2003','2003-3-12 00:00:00')

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'Dato'

/New/Admin/news_insert.asp, line 9


Typerne i databasen er:
mem_news (rs):
Head: Text
Message: Text
Dato:Text

News:
Head: varchar(255)
Message: Text
Dato: varchar(255)
Id_Dato: DateTime

NOgen der lige kan se fejlen?