Private Sub Form_Load()
Set objCon = CreateObject("ADODB.Connection")
objCon.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=\\pellesoft.nu\mapp\databas.mdb"
objCon.open
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set objCon = Nothing
End Sub