Try:
Dim today As DateTime = DateTime.Now
For DB:
Using con As New SqlConnection(strConnect)
con.Open()
Using com As New SqlCommand("INSERT INTO myTable (myDateColumn) VALUES (@DT)", con)
com.Parameters.AddWithValue("@DT", DateTime.Now)
com.ExecuteNonQuery()
End Using
End Using