Change your strSQL1 line so that it reads as follows:
strSQL1
70 strSQL1 = "Insert Into tblClick ([SongTitle]) " & _ "values ('" & Replace(NewData,"'","''") & "');"