' Connect to the database

Dim cnn As OleDbConnection = New OleDbConnection

cnn.ConnectionString = "Data Source=""C:\Northwind.mdb"";"

' Set up a DataSet and load it with three tables

Dim ds As DataSet = New DataSet("OrderData")

Dim daEmployees As OleDbDataAdapter = _

 New OleDbDataAdapter("SELECT * FROM Employees", cnn)

Dim daOrders As OleDbDataAdapter = _

 New OleDbDataAdapter("SELECT * FROM Orders", cnn)

Dim daOrderDetails As OleDbDataAdapter = _

 New OleDbDataAdapter("SELECT * FROM [Order Details]", cnn)