Operacja nie jest dopuszczalna.

Witam was mam problem ponieważ otrzymuje komunikat : operacja nie jest dopuszczalna gdy obiekt jest zamknięty

 rsDane.ActiveConnection = Conn

Dim sql As String
Dim numer As String
Dim Gidnumer As Integer

sql = "SELECT * FROM Nag WHERE Numer = " & numer

While Not rsDane.EOF

rsDane.MoveNext
 Gidnumer= rsDane.Fields("Numer").Value
Wend

End Sub

Debuger zatrzymuje się na pętli While. Gdzie może być problem ?

Nie pamiętam już VB, ale czy nie powinny być
while rsDane.EOF = false
albo
while !rsDane.EOF ?

zabrakło DaneRS.open

Hehe... nawet na ten brak nie zwróciłem uwagi, ale jestem pipa :)

pytanie moje czy jest możliwość teraz zrobić tak aby w zapytaniu były elementy z arkuszu np

sql = "SELECT * FROM Nag WHERE Numer ="&cos