If the datatype for the DB column is DateTime, then you dont have to use a string variable. Do this
VB Code:
  1. Dim TheDate As DateTime
  2. TheDate = DateTime.Today
That should work.