Recordset New ADODB.Recordset

rs.Open(sql, cn, CursorTypeEnum.adOpenStatic, LockTypeEnum.adLockOptimistic)

For M = 0 To Rs.RecordCount - 1

If Ora > Val(rs.Fields("Ora").Value) Then
                Debug.Print(Val(rs.Fields("Ora").Value))
                Successivo_Click(Nothing, Nothing)
            Else
                Exit For
            End If
            rs.MoveNext()
        Next

' setta il datasorce di una list al dataset.Table
Imports System.Data.OleDb
Private Sub frmMain_Load(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles MyBase.Load
    Dim Connection As ADODB.Connection = New ADODB.Connection()
    Connection.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & My.Application.Info.DirectoryPath & "\.." & "\NWind.mdb;Persist Security Info=False")
    Dim RS As ADODB.Recordset = New ADODB.Recordset()
    RS.Open("SELECT Customers.*, ContactName + ' from ' + " _
        & "CompanyName AS FullName FROM Customers", _
        Connection, _
        ADODB.CursorTypeEnum.adOpenDynamic, _
        ADODB.LockTypeEnum.adLockReadOnly, 0)
    Dim DA As OleDbDataAdapter = New OleDbDataAdapter()
    Dim DS As DataSet = New DataSet()
    DA.Fill(DS, RS, "Customers")
    lbCustomers.DataSource = DS.Tables("Customers")
    lbCustomers.DisplayMember = "FullName"
    Connection.Close()
End Sub

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

' lo trovi su SVEGLIA.

Dim cn As New ADODB.Connection()
cn.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source =" & TypeConn.PathDataBase
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(sql, cn, CursorTypeEnum.adOpenStatic, LockTypeEnum.adLockOptimistic)

For M = 0 To Rs.RecordCount - 1

If Ora > Val(rs.Fields("Ora").Value) Then
Debug.Print(Val(rs.Fields("Ora").Value))
Successivo_Click(Nothing, Nothing)
Else
Exit For
End If
rs.MoveNext()
Next

' setta il datasorce di una list al dataset.Table

Imports System.Data.OleDb
Private Sub frmMain_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Dim Connection As ADODB.Connection = New ADODB.Connection()
Connection.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & My.Application.Info.DirectoryPath & "\.." & "\NWind.mdb;Persist Security Info=False")
Dim RS As ADODB.Recordset = New ADODB.Recordset()
RS.Open("SELECT Customers.*, ContactName + ' from ' + " _
& "CompanyName AS FullName FROM Customers", _
Connection, _
ADODB.CursorTypeEnum.adOpenDynamic, _
ADODB.LockTypeEnum.adLockReadOnly, 0)
Dim DA As OleDbDataAdapter = New OleDbDataAdapter()
Dim DS As DataSet = New DataSet()
DA.Fill(DS, RS, "Customers")
lbCustomers.DataSource = DS.Tables("Customers")
lbCustomers.DisplayMember = "FullName"
Connection.Close()
End Sub

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