AddReference "C:\Windows\Microsoft.NET\Framework\v2.0.50727\System.Data.dll"
Dim databaseFileName As String = "C:\dB\Data1.accdb"' nebo MojeDatabaze.mdb
Dim myConnection As System.Data.OleDb.OleDbConnection = New System.Data.OleDb.OleDbConnection()
Dim myConnectionString As String = String.Format("Provider=Microsoft.ACE.OLEDB.12.0;Data Source={0};Persist Security Info=False;", databaseFileName) ' nebo Provider=Microsoft.Jet.OLEDB.4.0
myConnection.ConnectionString = myConnectionString
Try
myConnection.Open()
' execute queries, etc
'Display connection state
MsgBox(myConnection.State.ToString())
Finally
myConnection.Close()
End Try