我初学，这个问题不会。 帮帮！！！谢谢！！！

Question

Dim conn As New ADODB.Connection
  Dim rs As New ADODB.Recordset
Private Sub cmdDelete_Click()
conn.ConnectionString = "driver={sql server};server=liuwx;database=临时数据库;persist security info=false;user id=libdev;password=2027552"
      conn.Open
      rs.Open "delete from 书目副表 where 图书条形码='" & txttxm & "' ", conn
      rs.Close
      conn.Close
end sub出错为：
[microsoft][odbc sql server driver][sql server]delete permission denied on object '书目副县长表',database '临时数据库',owner 'dbo'

Answer 1

rs.Open "delete from 书目副县长表 where 图书条形码='" & txttxm & "' ", conn

Answer 2

Private Sub cmdDelete_Click()
conn.ConnectionString = "driver={sql server};server=liuwx;database=临时数据库;persist security info=false;user id=libdev;password=2027552"
      conn.Open
      conn.execute "delete from 书目副表 where 图书条形码='" & txttxm & "' 
      conn.Close
end sub

Answer 3

delete permission denied on object '书目副县长表',database '临时数据库',owner 'dbo'libdev用户权限不够！到users里面修改一下

Answer 4

libdev用户权限不够！
修改相应的权限后应该可以的

Answer 5

conn.CursorLocation=adUseClient 
在conn.open之前加上这句试试