Visual Basic .NET で ADO レコードセットを使用する方法

Module Module1

Sub Main()
Dim cn As New ADODB.Connection()
cn.ConnectionString = "provider=sqloledb;server=(localhost);database=northwind;uid=<username>"
cn.Open()

Dim rs As New ADODB.RecordSet()
rs.CursorLocation = ADODB.CursorLocationEnum.adUseClient
rs.CursorType = ADODB.CursorTypeEnum.adOpenStatic
rs.LockType = ADODB.LockTypeEnum.adLockBatchOptimistic
rs.Open("select * from products", cn)
rs.ActiveConnection = Nothing
cn.Close()

Dim da As New System.Data.OleDb.OleDbDataAdapter()
Dim ds As New DataSet()
da.Fill(ds, rs, "products")

Console.Write("There are " & ds.Tables(0).Rows.Count.ToString & " total products.")
Console.ReadLine()
End Sub

End Module