Как решить ошибку времени выполнения 3704 в Visual Basic 6.0?

Question

Я получаю время выполнения 3704 Операция не разрешена, когда объект закрыт ошибка Пожалуйста, помогите мне решить эту ошибку, мой код -

Private Sub Form_Load()
Ado.ConnectionString = ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & (App.Path & "\Test.mdb") & ";Persist Security Info=False;")
    Ado.RecordSource = "select * from Emp"
    Ado.Refresh
Call RSRun("select EmpName from Emp")
lst.Clear
lst.AddItem ("All")
While RS.EOF = False
lst.AddItem (RS.Fields(0).Value)
RS.MoveNext
Wend
End Sub

Я модули

Public Sub RSRun(ByVal SqlStr As String)
   On Error GoTo Er
    Set RS = Nothing
RS.Open SqlStr, Conn, adOpenDynamic, adLockOptimistic

Exit Sub
Er:
MsgBox Err.Description, vbCritical, "error-" & Err.Number
End Sub

Спасибо,
Yugal

Answer 1

Где определено Conn и можно ли его закрыть в момент вызова RS.Open...?