Aritmetiskt dataspillsfel...

...vid konvertering av expression till datatypen int.

Använder: http://www.15seconds.com/issue/021210.htm

Public Function InserBook(ByVal title As String, ByVal info As String, ByVal headgenre As Integer, ByVal genre As Integer)
            [b]Dim userID As integer = GetTripleDESEncryptedCookieValue("Cook_ID")[/b]
            Dim Command As String
            Command = "INSERT INTO tbl_books (col_title, col_info, col_publiced, col_writer, col_status, col_genre_1, col_genre_2) VALUES(" & _
            "'" & title & "', " & _
            "'" & info & "', " & _
            "'" & DateTime.Now() & "', " & _
            "" & userID & ", " & _
            "2, " & headgenre & ", " & genre & "" & _
            ");"
            'Return Command
            Return RunNonQuery(Command)
        End Function

Ctype på stängen funkar inte heller. Hur ska jag lyckas få in den som vanlig INT i databasen?
Att dimma den som int eller string e inga problem men kolumnen av typ INT vill inte.
Någon som känner till?