Dim keys(0) As DataColumn
    keys(0) = dat.Columns("ID")
    dat.PrimaryKey = keys
    da = Nothing
    da = New OleDbDataAdapter("SELECT * FROM BILDER2 ;", db)
    da.AcceptChangesDuringFill = False
    da.Fill(dat)
    cb = Nothing
    cb = New OleDbCommandBuilder(da)
    da.Update(dat)