Как вставить текущую дату в таблицу mssql? - VB

Формулировка задачи:

Пытаюсь вставить в поле datetime Now

                    Листинг программы
                
 
                        
                          
                    
Dim cn, s
        s = "INSERT INTO statistic ([date]) SELECT " & Now & " As 1;"
        cn = CreateObject("ADODB.Connection")
        cn.ConnectionString = "Provider=SQLOLEDB;Server=srv;Database=DB;Trusted_Connection=yes;Integrated Security=SSPI;Persist Security Info=False"
        cn.open
        cn.execute(s)
        cn.close

Выдается ошибка: неправильный синтаксис около конструкции "2016". Ну эта вечная проблема с датами. Пробую добавить параметр, вроде как с ним дата должна подставиться нормально. Но что-то не получается его создать, те параметры, что работают в Акцессе, в Студии 2015 не принимаются.

                    Листинг программы
                
cn.parameters.append(cn.СreateParameter("@dt", adDate,, Now))

Подчеркивается adDate, если вместо нее поставляю, нарытое в гугле System.Data.OleDb.OleDbType.DBDate, строку не подчеркивает, но при компиляции на ней выскакивает ошибка: "Аргументы имеют неверный тип, выходят за пределы допустимого диапазона или вступают в конфликт друг с другом".
Подскажите как создать правильный параметр, или что еще можно сделать, чтобы преобразовать дату для запроса.

Решение задачи: «Как вставить текущую дату в таблицу mssql?»

textual
                            Листинг программы 
                        
s = "INSERT INTO statistic ([date]) SELECT '" & format(now, "YYYYMMDD") & "' As 1;"