Me.DataGrid1.AllowDelete = True
Me.Adodc1.RefREh
Me.DataGrid1.RefREh

bookindex = InputBox("輸入你要刪的圖書的序號")
'RE.Close
If IsNumeric(bookindex) And bookindex <> 0 Then
sty = "select *  from 圖書 where 序列號='" & bookindex & " '"
RE.Open sty, Comsalary, adOpenKeyset, adLockOptimistic
RE.Delete
'RE.Fields("序列號") = bookindex
'RE.Open
'Me.Da
'RE.Update
'taGrid1.AllowUpdate = True


'MsgBox "允許在以上列表刪除記錄"
Me.Adodc1.RefREh
Me.DataGrid1.RefREh
Else: RE.Open