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

سلام دوستان
من کد زیر را برای ذخیره اطلاعات در دیتابیس نوشتم.اما هر تاریخی که وارد می کنم "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_Type  Book,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'ندارد')"