I am trying to get an Access database to open using the Microsoft Common Dialog Control.


Private Sub MnuFileOpen_Click()
CommonDialog1.ShowOpen


Data1.Connect = Access
Data1.DatabaseName = CommonDialog1.FileName
Data1.Caption = CommonDialog1.FileTitle
Data1.RecordSource = "table"

End Sub

This code doesn't appear to work. When the database is opened, I would hope that it should populate the existing fields on the form. Any help would be appreciated.