URL = "http://chart.apis.google.com/chart?chs=150x150&cht=qr&chld=H|0&chl=" & (Me.BINGM_EB)
done = URLDownloadToFile(0, URL, GResimDizin, 0, 0)
If Not done = 0 Then
MsgBox "QR Code indirilemedi"
End If
Attach etmemesi ise recordsetiniz hatalı. Formunuzdaki kimlik denetiminin ABONE_ID'ye eşit olduğu kayıtları seçmeye çalışıyor ancak tablonuzda böyle bir alan yok. Dolayısı ile herhangi bir kayıt getirmediği için ekleme de yapmıyor.