Public Function CreateAccessDB() As String ' Use's Microsoft ADO Ext. 2.7 for DDL and Security to create an Access DB Dim Ocat As New ADOX.Catalog Dim Osavefile As New System.Windows.Forms.SaveFileDialog Osavefile.Filter = "Access files|*.mdb" Osavefile.ShowDialog() Dim Lcconnstring As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Osavefile.FileName Try 'Create NewDB Database. Ocat.Create(connstring) ' Return the Connection String to the Newly Created DB Return connstring Catch Excep As System.Runtime.InteropServices.COMException MsgBox(Excep.Message, "Error", ) Finally ' Clean(Up) Ocat = Nothing End Try End Function