Ciao Antagonista. Ritengo che per "Aprire" un file del DB non serva il controllo CommonDialog. Comunque posto un esempio del predetto controllo, poi vedi tu ...
Progetto>Componenti MS Common Controls, poi seleziona e metti il controllo sulla Frm
In un modulo o nel modulo della stessa Frm:
codice:
With FrmTua.CommonDialog1
.CancelError = True ' Imposta CancelError su True
On Error GoTo ErrHandler
.Filter = "File di programma (*.csv)|*.csv|Documenti di Testo (*.Txt)|"
.FilterIndex = 1
.DefaultExt = "csv"
.Flags = cdlOFNNoChangeDir Or cdlOFNFileMustExist Or cdlOFNNoReadOnlyReturn
.InitDir = App.Path & "\DATI\TuoFile\"
.DialogTitle = "Selezionare il file da aprire"
.FileName = FrmTua.CommonDialog1.FileName
.ShowOpen
ErrHandler:
If Err.Number = 32755 Then ' E' stato scelto Annulla
boolErrAnnCO1 = True
Exit Sub
Else: boolErrAnnCO1 = False
End If
... .... ...
Codice per Aprire il File
Chiaramente questo è un esempio, che devi adattare alla tua realtà.