Dim dtNow As DateTime = System.DateTime.Now
Insert = "INSERT INTO testDATETIME (Date) VALUES('" & dtNow.ToString("'dd/MM/yyyy'") & "') "
With myConn
If .State = ConnectionState.Open Then .Close()
.ConnectionString = StrConn
.Open()
End With
Dim com As New SqlCommand
With com
.CommandType = CommandType.Text
.CommandText = Insert
.Connection = myConn
.ExecuteNonQuery()
End With