Private Sub Form1_load(ByVal senderAs Object,ByVal e As System.EventArgs)
' Create SQL and Connection strings
Dim ConnectionStringAs String ="Provider=Microsoft.Jet.OLEDB.4.0; DataSource=C:/Northwind.mdb"
Dim sql As String = "SELECT CustomerID,CompanyName,ContactName From Customers"
' Create a Connection object and open it
Dim conn As New Connection()
Dim connMode As Integer = CInt(ConnectModeEnum.adModeUnknown)
conn.CursorLocation = CursorLocationEnum.adUseServer
conn.Open(ConnectionString, " "," ", connMode)
Dim recAffected As Object = Nothing
Dim cmdType As Integer = CInt(CommandTypeEnum.adCmdText)
Dim rs As _Recordset = conn.Execute(sql, recAffected, cmdType)
' Create dataset and data adapter objects
Dim ds As New DataSet("Recordset")
Dim da As New OleDbDataAdapter()
' Call data adapter's Fill method to fill data from ADO
' Recordset to the dataset
da.Fill(ds, rs,"Customers")
' Now use dataset
dataGrid1.DataSource = ds.DefaultViewManager
End Sub
The output of listing 10-6 looks like figure 10-26.