为了评估索引属性，该属性必须是合格的并且参数必须由用户显式提供.-另一种情况

你好，萨拉姆....我已经尝试了所有已经讨论过的内容...但就我而言，我不知道为什么会发生与以前相同的问题...这是我的代码:

Hello,Salam....I have try everything that has been discuss... but in my case i do not know why the same problem as previous happen... here are my code:

Private Sub parsesave(ByVal paragid As String, ByVal sentenceid As String, ByVal ids As String, ByVal joinTexts As String, ByVal idv As String, ByVal kataverbjoint As String, ByVal ido As String, ByVal jointtextobj As String)

       Dim dbSVO As OleDb.OleDbDataAdapter
       Dim dsSVO As New DataSet
       Dim parseNewRow As DataRow


       dbSVO = New OleDb.OleDbDataAdapter("elect * from tableSVO", conntoMalayARM)
       dsSVO = New DataSet()
       dbSVO.Fill(dsSVO, "parse")

       Dim commanparse As New OleDb.OleDbCommandBuilder(dbSVO)

       parseNewRow = dsSVO.Tables("parse").NewRow()
       parseNewRow.Item(0) = CStr(paragid)
       parseNewRow.Item(1) = CStr(sentenceid)
       parseNewRow.Item(2) = CStr(ids)
       If joinTexts <>"" Then
           parseNewRow.Item(3) = CStr(joinTexts)
       Else
           parseNewRow.Item(3) = "null"
       End If

       parseNewRow.Item(4) = CStr(idv)
       If kataverbjoint <>"" Then
           parseNewRow.Item(5) = CStr(kataverbjoint)
       Else
           parseNewRow.Item(5) = "null"
       End If

       parseNewRow.Item(6) = CStr(ido)
       If jointtextobj <>"" Then
           parseNewRow.Item(7) = CStr(jointtextobj)
       Else
           parseNewRow.Item(7) = "null"
       End If

       dsSVO.Tables("parse").Rows.Add(parseNewRow)

       dbSVO.Update(dsSVO, "parse")
       dbSVO.Dispose()
   End Sub

请帮助我任何人....请....


[edit]已添加代码块-OriginalGriff [/edit]

Please do help me anyone.... please....


[edit]Code block added - OriginalGriff[/edit]