VB在ACCESS數據庫中查詢、添加、刪除、修改記錄的代碼是什麽？

程序的"修改"按鈕\ x0d \ private subcmedit _ click()\ x0d \ SQL = " select * from stop time statistics where date = cdate(" & text 8。文本&)和ycqk = ' " & ampCombo1。文本&並且id = ' " & ampDataGrid1列(2)。CellText(DataGrid1。書簽)& amp" \x0d\rs。Open sql，dm，adOpenDynamic，adLockOptimistic \x0d\rs。field(" id ")= text 7。文本\x0d\rs。Fields("ycqk") = Combo1。文本\x0d\ rs。fields(" date 1 ")= text 1。文本\x0d\rs。Fields("time1") = Text2。文本\x0d\rs。Fields("date2") = Text3。text \ x0d \ RS . fields(" time 2 ")= text 4 . text \ x0d \ RS . update \ x0d \ RS . close \ x0d \ end sub \ x0d \ ' Delete button程序\ x0d \ private sub cmd Delete _ click()\ x0d。strFCode = DataGrid1。列(0)。CellText(DataGrid1。書簽)\ x0d \ str code = datagrid 1。列(2)。CellText(DataGrid1。書簽)\x0d\ Strccode = datagrid1。列(1)。celltext (datagrid1。書簽)\ x0d \ SQL = " select * from stop statistics where date = ' " & strFCode & amp；並且id = ' " & ampstrSCode & amp而ycqk = ' " & ampstrCCode & amp\x0d\ rs.opensql，DM，adopen dynamic，adlock optimal \ x0d \ RS . delete \ x0d \ RS . update \ x0d \ RS . close \ x0d \ end sub \ x0d \ '程序的“添加”按鈕\Private子命令1 _ click()\ x0d \ SQL = " select * from stop time statistics order by id " \ x0d \ RS . open SQL，DM，adopen dynamic，adlock optimal \ x0d \ RS . add new \ x0d \ RS。Fields("date") = Date \x0d\rs。field(" id ")= text 7。Text - 1 \x0d\rs。Fields("ycqk") = Combo1。文本\x0d\ rs。fields(" date 1 ")= text 1。文本\x0d\rs。Fields("time1") = Text2。文本\x0d\rs。Fields("date2") = Text3。文本\x0d\ rs。Fields("time2") = Text4。文本\x0d\rs。更新\x0d\rs。用Adodc1關閉\ x0d \ \ x0d \ adodc 1。ConnectionString = " Provider = Microsoft。Jet . OLEDB.4.0數據源= " & ampApp。路徑與路徑。" \ db 1 . MDB；persist security info = false " \ x0d \ adodc 1 . record source = " select * from stop-time statistics where date = cdate(" & text 8。文本&)和ycqk = ' " & ampCombo1。文本&按id排序" \x0d\Adodc1。刷新\x0d\DataGrid1。刷新\x0d\End With \x0d\End Sub