请各位帮忙，删除 msflexgrid 的某列

Private Sub cmdDel_Click()
    Dim Mobile As String
    Dim id As Integer
    Dim sql As String
    
    If Usergrid.Rows > 1 Then
        With Usergrid
            If .TextMatrix(.Row, 0) = "" Then
                Exit Sub
            End If
            id = Trim(.TextMatrix(.Row, 6))
            Mobile = Trim(.TextMatrix(.Row, 1))
        End With
        If MsgBox("确认要删除手机号为：[" & Mobile & "] 的信息吗？", vbOKCancel, "提示") = vbCancel Then
            Exit Sub
        Else
            sql = "delete from linkman where id= " & id
            db.Execute (sql)
            Call RefreshData
        End If
    End If
End Sub


db.Execute (sql) 报错。

实时报错91 对象变量或with块变量未设置 --------------------编程问答-------------------- 请确认db与数据库是否已经建立连接
--------------------编程问答-------------------- 最简单的办法，假删除，把其列宽设置为0 --------------------编程问答--------------------

引用 1 楼 leftie 的回复:

请确认db与数据库是否已经建立连接

+
不知道怎么连接的，神仙也难救 --------------------编程问答--------------------

引用 2 楼 veron_04 的回复:

最简单的办法，假删除，把其列宽设置为0

这样最好，省的麻烦

补充：VB ,  控件