DATO fra VB til SQL server tabell

hei, jeg skal legge dagens dato fra mitt VB program og inn i en SQL Server database. koden min ser slik ut:

Private Function ReplicateTextFile() As Boolean
  Dim strIn As String
  Dim spltStr() As String
 
  Open App.Path & \"\\item.txt\" For Input As #1
 
  Do Until EOF(1)
    Line Input #1, strIn
   
    spltStr = Split(strIn, \"\"\";\"\"\")
   
    If UBound(spltStr) = 2 Then
      spltStr(0) = RTrim(LTrim(Mid(RTrim(LTrim(spltStr(0))), 2)))
      spltStr(1) = RTrim(LTrim(spltStr(1)))
      spltStr(2) = RTrim(LTrim(spltStr(2)))
     
      dbDAT.Execute \"INSERT INTO ITEM \" & _
                    \"(\" & _
                    \"ITEM_ID, DESCRIPTION, COST_PRICE, LAST_IMPORT_DATE, LAST_IMPORT_BY\" & _
                    \") \" & _
                    \"VALUES (\" & _
                    \"\'\" & spltStr(0) & \"\',\" & _
                    \"\'\" & spltStr(1) & \"\',\" & _
                    \"\'\" & spltStr(2) & \"\',\" & _
                    \"\'\" & Format(Now, \"DD-MM-YYYY\") & \"\',\" & _
                    \"\'KIM_IMPORT\')\"

    Else
      Open App.Path & \"\\error log.txt\" For Append As #2
      Print #2, Format(Now, \"mm-dd-yyyyy\") & \" \" & Format(Now, \"HH:MM:SS\") & vbTab & \"Not valid import line:\" & strIn
      Close #2
    End If
   
  Loop
 
  Close #1
  Exit Function


- resten av det jeg skal legge inn i tabellen henter jeg fra en tekstfil. Alt går fint så lenge datofeltet i tabellen er av typen varchar. Men når jeg setter feltet i tabellen til datetime får jeg feilen:

The conversion of a char data type to a datetime data type resulted in an out of range datetime value.

når jeg tar en debug.print på now, får jeg: 18.09.2001 11:28:14

noen gode tips??