this is what is do to insert data to the Booktbl

Dim MyDate As Datetime = Now()

strAuthor = tbAuthor.Text.Trim

Dim myConnection As New SqlConnection(ConfigurationSettings.AppSettings("ConnStr"))

Dim myCommand As New SqlCommand("INSERT INTO Booktbl (Author, Date)...