title: Converting from VB6 to VB.NET, Recordset
body: <p>I have an old program I'm looking to convert from VB6 to VB.NET</p>
  
  <p>Here's the code:</p>
  
  <pre><code>Dim cnn As ADODB.Connection
  Set cnn = New ADODB.Connection
  Dim rs As New ADODB.Recordset
  cnn.CursorLocation = adUseClient
  cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &amp; App.Path &amp; "\TestDB.mdb" &amp; "; Persist Security Info=False;"
  cnn.Open
  rs.Open "SELECT Addresses.*, Accounts.[Login Status], * FROM Accounts INNER JOIN Addresses ON Accounts.AccountID = Addresses.AccountID WHERE (((Accounts.[Login Status])=Yes))", cnn, adOpenStatic, adLockReadOnly
  
  rs.AbsolutePosition = 1
  
  lblFirstName.Caption = rs![Addresses.First Name]
  lblLastName.Caption = rs![Addresses.Last Name]
  lblAddress.Caption = rs![Address]
  lblPSPR.Caption = rs![Parish/State/Province/Region]
  lblZipCode.Caption = rs![Zip Code]
  lblCountry.Caption = rs![Country]
  lblTelephoneNumber.Caption = rs![Addresses.Telephone Number]
  lblCellNumber.Caption = rs![Addresses.Cell Number]
  lblAddressID.Caption = rs![AddressID]
  cnn.Close
  </code></pre>
  
  <p>Now the code I here passes the sql result to the labels mentioned above and by changing the rs.AbosolutePosition i can either display the 1st row, 2nd row, 3rd row etc. Now my question is how to i accomplish this in VB.NET ?</p>