مشکل با ذخیره تاریخ در دیتابیس

[هورداد]

سلام دوستان
من کد زیر را برای ذخیره اطلاعات در دیتابیس نوشتم.اما هر تاریخی که وارد می کنم "1900-01-01 00:00:00.000" در دیتابیس ذخیره می شه.
انگار null به دیتابیس پاس می دم که این اتفاق می افته.
breakpoint که می زارم به ظاهر همه چی درسته پارامتر ها درست پر می شن.

کلاس DBClass :


Function InsertToDB(ByVal tblname As String, ByVal FieldsStr As String, ByVal ValuesStr As Object) As Integer
ConnectToDB()
Query = "INSERT INTO " & tblname & "(" & FieldsStr & ") VALUES (" & ValuesStr & ")"
Cmd = New SqlCommand(Query, con)
Cmd.ExecuteNonQuery()
con.Close()
Return 1
End Function


دکمه Insert :



Private Sub _btn_insertBook_Click(sender As Object, e As EventArgs) Handles _btn_insertBook.Click
Fileds = "Code,DatePublish,DatePlace,PrintNumber,idTbl_TypeB ook,BookName,Writer,Comment"
Values = "N'" & _txt_code.Text & "'," & MiladiDate & ", N'" & _txt_publishPalce.Text & "', N'" & _txt_printNumber.Text & "'," & _cmb_TypeBook.SelectedValue & ", N'" & _txt_bookName.Text & "', N'" & _txt_writer.Text & "', N'" & _txt_commnet.Text & "'"
db.InsertToDB("tbl_Book", Fileds, Values)
End Sub


breakpoint :



"INSERT INTO tbl_Book(Code,DatePublish,DatePlace,PrintNumber,id Tbl_TypeBook,BookName,Writer,Comment) VALUES
(N'00-3',2/11/2015, N'نقش گستر', N'2',5, N'ریاضی', N'سعید', N'ندارد')"

[aliebrahimi1900]

دوست عزیز باید نوع متغیرت تاریخ باشه نمیشه متغیر رشته ای رو توی متغیر تاریخ ریخت


Dim Date1 As Date = Now.Date
"INSERT INTO tbl_Book(Code,DatePublish,DatePlace,PrintNumber,id Tbl_TypeBook,BookName,Writer,Comment) VALUES(N'00-3'," + Date1 + ", N'نقش گستر', N'2',5, N'ریاضی', N'سعید', N'ندارد')"