Dim db As New DBClass("Data/TaskifierDB.sdf")
Dim newRow As New TblTest With {.Col1int4 = 1,
                                .Col2nvarchar100 = "Test",
                                .Col3bit1 = 1,
                                .Col3datetime8 = Now}
db.TblTest.InsertOnSubmit(newRow)
db.SubmitChanges()