Jag får inte anslutningen till en Accessdatabas att fungera när jag använder Common dialog.

Den här lösningen fungerar men innebär ju att man måste peka ut databasen i koden;
con.Open " Provider=Microsoft.jet.oledb.4.0;data source = D:\VB-Projekt\Projektmapp_NVDB-XML\Databaser\Taberg.mdb"

jag vill öppna den fil som jag pekar ut med hjälp av common dialog boxen (commondialog.FileName) men lyckas inte.
Här är koden jag använder:
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
' Set filters.
cdlg2.Filter = "Access Files (*.mdb)|*.mdb"
' Specify default filter.
cdlg2.FilterIndex = 2
cdlg2.InitDir = "D:\VB-Projekt\Projektmapp_NVDB-XML\Databaser"
' Display the Open dialog box.
cdlg2.ShowOpen
'Create connection
con.Open " Provider=Microsoft.jet.oledb.4.0;data source = D:\VB-Projekt\Projektmapp_NVDB- XML\Databaser\Taberg.mdb"

'Öppnar recordsetet för att kunna spara
RS.Open "DatasetCitation", con, adOpenKeyset, adLockOptimistic, adCmdTable

'Läger till en post
RS.AddNew

Är det någon som kan hjälpa mig vore jag mycket tacksam.

/Janne

Hej Janne

Om du skall öppna den fil du pekar ut bör du skriva:

con.Open " Provider=Microsoft.jet.oledb.4.0;data source = " & cdlg2.FileName