没有用INSERT
dt.Rows.Add() '增加一行
                dt.Rows(0)("lsh") = Strlsh
                dt.Rows(0)("bhbh") = Trim(TxtBh.Text)
                dt.Rows(0)("qymc") = Trim(TxtQymc.Text)
                dt.Rows(0)("clmc") = List2.Items(t).ToString
                dt.Rows(0)("djjbr") = UserName
                dt.Rows(0)("fjrq") = DayT0
                dt.Rows(0)("fjr") = Trim(Combo1.Text)
                dt.Rows(0)("sjbmqy") = Trim(Combo2.Text)
                dt.Rows(0)("sjr") = Trim(Combo3.Text)
                Dim cb As New SqlCommandBuilder(da)
                da.UpdateCommand = cb.GetUpdateCommand '这句不加也可以
                da.Update(ds)

不知是何原因。

十分感谢。

我发现，问题出在：select * 当中，
如果指定所需要添加的列，则不会出现问题。但我的程序当中有一个模块，即使指明了列，数据库默认值也会起作用。