Finns det någon som kan hjälpa mig med spara som och öppna. Måste man använda Common Dialog Box? Eller finns det några andra alternativ?
MVH
Ivan Larsson

Hej
CommonDialog passar bra ,här döpt till CmDialog.

mnuOpen_Click ' Öppna
'Cancel Error är True
On Error GoTo OpenError
CmDialog.Filter = "Access97 mdb|*.mdb"
CmDialog.InitDir = App.Path
CmDialog.DefaultExt = "*.mdb"
CmDialog.DialogTitle = " Öppna FondFil"
CmDialog.Flags = &H1000
CmDialog.FileName = ""
CmDialog.ShowOpen
PathFondData = CmDialog.FileName

mnuSaveAs_Click
'Cancel Error är True
On Error GoTo SaveAsError
CmDialog.Filter = "Access97 mdb|*.mdb"
CmDialog.InitDir = App.Path
CmDialog.DefaultExt = "*.mdb"
CmDialog.DialogTitle = " Spara som..."
CmDialog.Flags = &H2
CmDialog.FileName = ""
CmDialog.ShowSave
SaveName = CmDialog.FileName

mvh
Sven

Tack Sven för ditt förslag.
MVH
Ivan Larsson