Insert into SQL Database

Hej, jeg er igang med at lave et projekt og er løbet ind i nogen problemer.

Dim tableAdapter As New Database1DataSetTableAdapters.Table1TableAdapter
        Dim rowsAffected As Integer
        rowsAffected = CType(tableAdapter.Insert(True, Date.Now), Integer)
MsgBox(rowsAffected)

Nå jeg køre denne kode kommer der en msgbox frem hvori der står "1"
men nå jeg går ind i min database og finder frem til min table er der ikke blevet indsat noget date. Hvad gør jeg forkert ?