此类对象不支持操作

Question

我在调试时遇到了 vb 问题，即使索引名称正确

Private Sub DBGridJual_AfterColEdit(ByVal ColIndex As Integer)
    mhargaawal = DataBantu.Recordset!Harga_Jual
    munitawal = DataBantu.Recordset!Unit_Jual
    
    If DBGridJual.Col = 0 Then
        DataStock.Recordset.Index = "NoStockDex"
        DataStock.Recordset.Seek "=", DBGridJual.SelText
        If DataStock.Recordset.NoMatch Then
            Beep
            DBGridJual.Col = 0
            Exit Sub
        End If
        
        DataBantu.Recordset.Edit
        DataBantu.Recordset!NamaStock = DataStock.Recordset!NamaStock
        DataBantu.Recordset!Harga_Jual = DataStock.Recordset!Harga_Jual
        DataBantu.Recordset.Update
        DBGridJual.Refresh
        DBGridJual.Col = 2
        Exit Sub
    End If