mdbへ保存 (ID:76649)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 更新に際して次のようなコードを作ってみました。 Dim DB As Database Dim WS As Workspace Dim RS As Recordset Set WS = DBEngine.Workspaces(0) Set DB = WS.OpenDatabase("mdbまでのパス") Set RS = DB.OpenRecordset("テーブル名", dbOpenDynaset) Call Form1.datData.Recordset.MoveFirst Dim i As Integer For i = 0 To Form1.lstList.ListIndex Call Form1.datData.Recordset.MoveNext Next Call Form1.datData.Recordset.Update("フィールド名", txtText.) ですが、最後のCallの行で方が一致しないというエラーが出てしまうのですがどこが悪いのでしょうか？ 環境はWin95,VB6.0,Access97で行っています。