Visual Basic - No se a que se debe el error

Hola compañeros, tengo el siguiente codigo:

Data2.Recordset.MoveFirst
Do While Not Data2.Recordset.EOF And Data2.Recordset.Fields("Jugados") <> 0
If Data2.Recordset.Fields("Demarcacion") = p Then
'If Val(Data2.Recordset.Fields("dorsal")) = 1 Or Val(Data2.Recordset.Fields("dorsal")) = 13 Then
grid2.TextMatrix(y, 1) = Data2.Recordset.Fields("nombre")
buscar = "Dc like '*" & Data2.Recordset.Fields("Dc") & "*'"
Data1.Recordset.FindFirst buscar
grid2.TextMatrix(y, 2) = Data1.Recordset.Fields("equipo")
grid2.TextMatrix(y, 3) = Data2.Recordset.Fields("goles")
promedio = (Data2.Recordset.Fields("goles") / Data2.Recordset.Fields("Jugados"))
promedio = Format(promedio, "0.000")
grid2.TextMatrix(y, 4) = promedio
grid2.AddItem mas
y = y + 1
End If
Data2.Recordset.MoveNext
If Data2.Recordset.EOF Then
Exit Do
End If
Loop

y me da el siguiente error:

error '3426' en tiempo de ejecucion

Esta accion fue cancelada por el objeto asociado.

Alguien me puede dar una solucion?

Gracias de antemano.