关于删除数据库中一条记录，在先等，急！！！

Question

Private Sub deleteBf()
  On Error GoTo x
  ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;"
   Set cnn = New ADODB.Connection
   cnn.Open ConnectString
     Dim rs As ADODB.Recordset
         Set rs = New ADODB.Recordset
     Dim str As String
         str = "select * from user_info where use_id = '" & userid & "';"
      rs.Open str, cnn, adOpenDynamic, adLockOptimistic
    If rs.EOF Or rs.BOF Then
        MsgBox "此用户不存在,请重新输入！", vbOKOnly + vbInformation, "删除用户"
        Text5.SetFocus
    Else
        msg = MsgBox("确实要删除用户?", vbYesNo + vbQuestion, "删除用户")
        If msg = vbYes Then
          rs.Delete
          rs.Update
        Else
          Exit Sub
        End If
    End If
       rs.Close
    Exit Sub
x:
    MsgBox "删除用户失败！", vbOKOnly + vbExclamation, "删除用户"
    Text5.SetFocus
 End Sub我用的是ACCESS数据库，操作是语句执行到rs.Open str, cnn, adOpenDynamic, adLockOptimistic这一句就直接条到x:
这是为什么啊？

Answer 1

On Error GoTo x,你那个语句出错误了，所以跳转到了x你在x设置断点，err.description看看错误原因

Answer 2

str = "select * from user_info where use_id = '" & userid & "';"
后面的是什么？分号吗？数据库库中，userid字段有分号吗？

Answer 3

楼主可以把sql语句追加出来看看有没有错误

Answer 4

SQL语句没有问题，这个语句是我比着一个正确的SQL语句写的

Answer 5

用debug把sql语句打出来 放到SQL执行1下 看看是不是执行不了 你把'" & userid & "';"里面的；去掉就可以了