列表框数据相互转移问题

本人根据http://www.accessoft.com/article-show.asp?id=5207的方法制作列表框窗体将两个表中的数据相互传输，但是在我自己的内容中运行相应的代码就出现“3421错误代码，数据类型转换错误”或者“错误64224，方法Value用于对象Field2失败”，代码如下，错误指向加粗部分，求解，谢谢

Private Sub Command4_Click()
    
    Dim rst As DAO.Recordset
    Dim intI As Integer
    Dim intIndex As Integer
        
    If Me.List0.ListCount <> 0 Then
        intIndex = Me.List0.ListIndex
        Set rst = CurrentDb.OpenRecordset("tblFixedAssetDisposal", , dbAppendOnly)
        rst.AddNew
        For intI = 1 To rst.Fields.Count - 1
            rst.Fields(intI).Value = Me.List0.Column(intI)
        Next
        rst.Update
        rst.Close
        CurrentDb.Execute "DELETE FROM tblFixedAsset1 WHERE ID=" & Me.List0
        Me.List0.Requery
        Me.List1.Requery
        Me.List0 = Null
        If Me.List0.ListCount <> 0 Then
            If intIndex >= Me.List0.ListCount - 1 Then
                intIndex = Me.List0.ListCount - 1
            Else
                intIndex = intIndex + 1
            End If
            Me.List0 = Me.List0.ItemData(intIndex)
        End If
    End If


End Sub