ADODB.Recordset

I'm using ADODB to connect to a database and using recordsets to get the data. The problem is, the recordsets have been changed in VB.NET. Can someone tell me what I should be using instead of:

VB Code:

Public db As ADODB.Connection
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim dbr1 As ADODB.Recordset
        dbr1 = New ADODB.Recordset()
        Dim SString As String
        Dim Emails As String
        Dim x As Int64
        Connect()
        SString = "SELECT Bill_Email_Address From Emails"
        dbr1.Open(SString, db)
        For x=0 To dbr1.RecordCount
            If Not dbr1(x).Value Is System.DBNull.Value Then
                Emails = Emails + dbr1(x).Value
            End If
        Next

I hope this would help !(scroll down to the middle)