לכולם שלום.
אני מנסה להביא נתונים לאקסל בעזרת מקרו. מקור הנתונים הוא טבלת מקובץ אקסס המקושרת לטבלת SQL.
אני ממלא בתא E2 מספר ת.ז. ורוצה לקבל עליו פרטים.
הקוד שכתבתי הוא:

Sub get_netunim()



Dim the_db As Database
Dim the_rec As Recordset
Set the_db = OpenDatabase("R:\CRM\CRM.md")
Range("F2").Select
TZ = Format(ActiveCell.Offset(0, -1).Value, "000000000")



the_str = "select * from DBO_CUSTOMER where CustomerId='" & TZ & "'"


Set the_rec = the_db.OpenRecordset(the_str)

Do Until the_rec.EOF
ActiveCell.Value = the_rec("snif")

ActiveCell.Offset(1, 0).Select
the_rec.MoveNext
Loop
End Sub

כאשר המאקרו מגיע לשורה המודגשת הוא מקפיץ לי את החלון הבא



מה הבעיה? כיצד פותרים אותה?
תודה מראש,
ברק