form load og form unload, lukke database connection

Private Sub Form_Load()
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = " & App.Path & "\database.mdb"
conn.Open
End Sub

Private Sub Form_Unload(Cancel As Integer)
conn.Close
end sub

Hvorfor fejler form_unload? Jeg bruger conn rundt om i mit program og lukker mine record sets. Der står ikke andet end conn.open i programmet, og det fejler.

Flytter jeg så conn.close ned i min form_load (lige efter åbning) lukker den fint ned, men så kan jeg jo ikke bruge den.