בעיה עם rs.EOF

הינה

rs.Open sql
if not rs.EOF then
dim ID
ID=rs("ID")
rs.Close
conn.Close

sql="SELECT ……"
conn.Open "DSN=mydsn"
rs.Open sql
  if rs.EOF then
  rs.Close
  set rs=nothing
  conn.Close
  sql="UPDATE….. "
  conn.Open "DSN=mydsn2"
  conn.Execute sql
  conn.Close
  conn.Open "DSN=mydsn"
else
  rs.Close
  set rs=nothing
end if
end if

כמו שאפשר לראות, יש תנאי rs.eof אחד בתוך השני (אולי זה קשור לבעיה?)
התנאי המודגש (הפנימי) הוא התנאי שאליו אני מתכוון.

תשובה
אחרי שאני מכניס אובייקט רקורדסט למשתנה rs, אני משתמש במאפיין
rs.activeconnection
וקובע לו שהחיבור שאני משתמש בו הוא conn, לכן אין שגיאה.

אני סוגר ופותח את החיבור בגלל שאני צריך לבצע את השאילתה על מסדי נתונים שונים..

לא
לא צריך לסגור את החיבור אלה אם מסיימים את העבודה עם המסד..

אני עושה את זה בגלל שאני מחליף מסד נתונים כל שאילתה.