Вам необходимо создать OleDbConnection, используя OleDbConnectionStringBuilder для подключения к базе данных.
Например:
Dim builder As New OleDbConnectionStringBuilder
builder.Provider = "Microsoft.Jet.OLEDB.4.0"
builder.DataSource = Path.Combine(rootPath, "VSS_TESTDB.mdb")
builder.PersistSecurityInfo = False
Using connection As New OleDbConnection(builder.ToString())
Using command As New OleDbCommand("SELECT VSS_Files.id, VSS_Files.filename,VSS_Files.dateOfCreation,VSSDirs.dir FROM VSS_Files, VSSDirs Where VSS_Files.dir_id = VSSDirs.id;", connection)
connection.Open()
Using reader As OleDbDataReader = command.ExecuteReader()
'Do something
End Using
End Using
РЕДАКТИРОВАТЬ : Ваша проблема, вероятно, в том, что вы ставите кавычки вокруг rootPath
. Data Source
вашей строки подключения - DataSource=rootPath\VSS_TESTDB.mdb
. Я предполагаю, что вы действительно хотите, чтобы оно имело значение переменной rootPath
.
Также вам необходимо открыть соединение.
Наконец, вы должны закрыть соединение и DataReader, используя оператор Using
.
См. Мой обновленный пример.