Visual Basic - insert desde v.Basic en mysql

Hola a tod@s,
tengo que rellenar un tabla de MySQL desde visual. La insert la hago de la siguiente forma:

Dim fecha As Date = DateAdd(DateInterval.Day, CLng(Microsoft.VisualBasic.Rnd() * 100), Today.Date)
Dim camara As Integer = random.Next(1, 200)
Dim entradas As Integer = random.Next(1, 1000)
Dim salidas As Integer = random.Next(1, 1000)
Dim cmd As OdbcCommand = conexionBD.CreateCommand()
Dim sql As String = "INSERT INTO CONTEO VALUES(" & camara & "," & fecha & "," & entradas & "," & salidas & ")"
Dim comandoSQL As OdbcCommand = _
New OdbcCommand(sql, conexionBD)
Dim resultadoSQL As OdbcDataReader = _
comandoSQL.ExecuteReader()

pero la fecha no me la coge bien y me la llena de 0s, como lo tengo que hacer para que me inserte bien la fecha en la tabla?'

Muchas gracias.

hola!;)

as provado de poner en la variable date:

Dim fecha As Date = Format(Now, "yyyy/mm/dd")

esto es para poner la fecha actual.

espero que te sirva...

saludos;)