E quindi, se utilizzi

codice:
Private Sub cmdClose_Click()
  rs.Close
  Set rs = Nothing
  Unload Me
End Sub
il problema c'e' ancora?