how to format datetime dataype while adding column

If con.State Then con.Close()
con.Open()
ts = con.BeginTransaction
sqlselect.Connection = con
sqlselect.Transaction = ts
sqlselect.CommandText = "alter table Client_Details add Client_SMS_BDt date,Client_SMS_ADt date, BdayYear text(100), AnYear text(100), MonDate date"
    sqlselect.ExecuteNonQuery()


System.Threading.Thread.Sleep(500)

sqlselect.CommandText = "Update  Client_Details set Client_SMS_BDt =0,Client_SMS_ADt =0, BdayYear='', AnYear ='', MonDate =0"
    sqlselect.ExecuteNonQuery()



ts.Commit()


MsgBox("DONE")



Catch ex1 As Exception
    ts.Rollback()
End Try