Visual Basic - ERROR 3426!

Tengo este codigo que me arroja el error 3436:

Private Sub cmdCapturar_Click()
Dim CadenaLeida As String
Dim Linea As Integer
Dim Aux1 As Integer
Dim PosGuion As Integer
Dim PosPunto As Integer

Data2.Recordset.MoveLast
For Linea = 0 To File1.ListCount - 1 'numero de lineas en el control FileListBox
CadenaLeida = File1.List(Linea)
For Aux1 = 1 To Len(CadenaLeida)
If Mid$(CadenaLeida, Aux1, 1) = "-" Then
PosGuion = Aux1
End If
If Mid$(CadenaLeida, Aux1, 1) = "." Then
PosPunto = Aux1
End If
Next Aux1
Data2.Recordset.MoveLast
Registro = Data2.Recordset.Numero + 1
Data2.Recordset.AddNew
Data2.Recordset.Numero = Registro
txtCancion.Text = Left(CadenaLeida, PosGuion - 1)
txtInterprete.Text = Mid$(CadenaLeida, PosGuion + 2, PosPunto - (PosGuion + 2))
Data2.Recordset.Update 'ERROR 3426 AQUI
Next Linea

End Sub