sccs = "select l_phone from fuser where l_phone='" & t_phone & "'"

rs.Open sccs, conn, adOpenStatic, adLockReadOnly

If rs.RecordCount <= 0 Then

    MsgBox ("数据已删除！")
   
    rs.Close
   
    Exit Sub
   
End If
   
mif = MsgBox("是否确定删除？", vbYesNo + vbQuestion, "删除")

If mif = vbYes Then

    sc = "delete from fuser where l_phone ='" & t_phone & " '  "
        
    rs.Open sc, conn, adOpenStatic, adLockReadOnly  //提示着打不开数据库，但是我前面的查询时能打开，ado控件已经打开了
   
    MsgBox ("删除成功!")

End If

这是对象模型.与控件无关.

adLockReadOnly  //提示着打不开数据库!!!!!!!!!!!!!!!!!
你用了ReadOnly——这翻译过来就是“只读”的意思！对不？

试试用rs.Open sc, conn, 1,1

肯定管用的