Dato ind i database

Jeg har lavet denne sub, og det virker fint:

Sub AddNyhed_Click(Sender As Object, E As EventArgs)
  Dim sqlSTR as string
  Dim dato as New DateTime()
  dato = DateTime.Now
  sqlSTR = "insert into nyheder values('" & dato & "','" & Request("emneField") & "','" & Request("beskField") & "')"
  dim DBConn as DBConnect = new DBConnect()
  DBConn.opdaterDB(sqlSTR)
  Response.Write("<script" & ">window.opener.location.reload()</" & "script>")
  closewindow_Click(Sender, E)
end Sub

Problemet er at jeg får både dato, år og klokkeslet ind i DB'en. Kan man ikke nøjes med dato og år? Evt. sættenoget efter now?