error 3001

[nelsonavasquezm]

Buenos dias

Obtengo error 3001 en el siguiente texto donde dice CASE "logoASV" me pueden ayudar a corregirlo

Case "cAdu"
If IsNull(RS("RGB")) Then
ImprimirTexto RS("Left"), RS("Top"), RS("Width"), RS("Height"), RSA("Codigo"), RS("Ali"), RS("Font"), RS("Size"), RS("Bold"), RS("Italic")
Else
ImprimirTexto RS("Left"), RS("Top"), RS("Width"), RS("Height"), RSA("Codigo"), RS("Ali"), RS("Font"), RS("Size"), RS("Bold"), RS("Italic"), RS("RGB")
End If
Case "LogoASV", "LogoMundial", "LogoAno"
If Dir(App.Path & "\Temp.tmp") <> "" Then Kill App.Path & "\Temp.tmp"
P = RS.Fields("Picture").GetChunk(RS.Fields("Picture") .ActualSize)
If LenB(P) > 0 Then
SizeOfFile = LenB(P) 'get size of file
ReDim ByteArray(1 To SizeOfFile) As Byte 'reset byte array to size of file
ByteArray = P
Fno = FreeFile 'get free file number
Open App.Path & "\Temp.tmp" For Binary As #Fno
Put #Fno, , ByteArray 'put array into file
Close #Fno
ImprimirImagen RS("Left"), RS("Top"), RS("Width"), RS("Height"), LoadPicture(App.Path & "\Temp.tmp")
End If
End Select
RS.MoveNext
Loop
Printer.NewPage
RS.Close
Msg = "UPDATE taAdu SET xCre=true WHERE cAdu=?"
ExecuteSQLCommand Cnx, Msg, adInteger, RSA("cAdu")
Msg = "UPDATE taCgoAdu SET xCre=true WHERE cCgoAdu=?"
ExecuteSQLCommand Cnx, Msg, adInteger, RSA("cCgoAdu")
End If
Else
MsgBox "Revise el cargo del dirigente o si el dirigente está registrado en este año"
End If
RSA.Close
Set RSA = Nothing

End Function