Dim strsql1 As String
strsql = "delete KQBRUSH" & Trim(MEditBox9.Text) & "where skrq=" & Trim(MEditBox8.Text)
  rs.Open strsql
  rs.Close
MEditBox8.Text = "删除成功!"

解决方案 »

  1.   

    rs是记录集?没有这么用的。
    应该是 conn.execute(strsql)
      

  2.   

    strsql = "delete KQBRUSH " & Trim(MEditBox9.Text) & " where skrq=" & Trim(MEditBox8.Text) 
    注意加个空格防止MEditBox9.Text为空
      

  3.   

    strsql = "delete KQBRUSH" & Trim(MEditBox9.Text) & "where skrq='" & Trim(MEditBox8.Text) & "'"
    conn.excute strsql
      

  4.   

    delete from ......SQL 语法错了吧??
      

  5.   

    Sql语句测试
    首先把所有的变量替换成常数 看看语句本身的语法有没错误
    然后在把变量换上去测试楼主的Sql语句看似有问题
    delete KQBRUSH" & Trim(MEditBox9.Text) & "where skrq=" & Trim(MEditBox8.Text) 
    --------------------------------------------------------------------------------
    delete tabTmp                                where field=   VarTmp
    难道lz的表名是KQBRUSH+Trim(MEditBox9.Text)么?