"Column count doesen't match value count"

Har problem med följande INSERT kommando, och får felmeddelandet "Column count doesen't match value count".

Hjälp, någon?

intSeasonID = CInt(Request.QueryString("SeasonID"))
intLeagueID = CInt(Request.QueryString("LeagueID"))
intGameID = CInt(Request.QueryString("GameID"))

If IsArray(Session("Stats")) = True Then
	Dim arrStats
	arrStats = Session("Stats")

	Set objConn = dbConn()

	For i = 0 to UBound(arrStats)
		If IsEmpty(arrStats(i,0)) = False Then

			intTeamID = arrStats(i,0)
			intTime = arrStats(i,2)
			strEvent = arrStats(i,3) & "/" & arrStats(i,4)
			strPlayer = arrStats(i,5) & "/" & arrStats(i,6)

			strSQL = "INSERT INTO matchfacts (mID, mSeasonID, mLeagueID, mGameID, mTeamID, mTime, mEvent, mPlayer) " & _
				 "VALUES (NULL, " & intSeasonID & ", " & intLeagueID & ", " & intGameID & ", " & intTeamID & ", " & intTime & ", '" & strEvent & "', '" & strPlayer & "')"

			Set objRS = objConn.Execute(strSQL) : Set objRS = Nothing
		End If
	Next

	Set objConn = Nothing
End If

Response.Redirect("creategame.asp?Stage=1")

Debug time

strSQL = "INSERT INTO matchfacts (mID, mSeasonID, mLeagueID, mGameID, mTeamID, mTime, mEvent, mPlayer) " & _
				 "VALUES (NULL, " & intSeasonID & ", " & intLeagueID & ", " & intGameID & ", " & intTeamID & ", " & intTime & ", '" & strEvent & "', '" & strPlayer & "')"
response.write "SQL:" & strSQL
response.end
'		objConn.Execute(strSQL)

Vad blir resultatet av utskriften?

Vilka datatyper har kolumnerna?

Är det någon kolumn som är REQUIRED som du har utelämnat?

Är det fler angivna kolumner i SQL-satsen än vad som finns i databasen?

Tydligen var det intTimeID, som kan bestå av ett decimaltal, som ställde till det.
Löste det genom Replace(intTimeID, ",", ".").

Ja, ett komma kan ju enkelt spöka till det... om du inte kan använda dig av Date, så tycker jag att du borde använda String istället. Då slipper du dom där knepiga felmeddelandena.