Sql 从VB6到VB.NET的转换，记录集

我有一个旧程序，我正在寻找从VB6转换到VB.NET

代码如下：

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=" & App.Path & "\TestDB.mdb" & "; 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

---

现在，我这里的代码将sql结果传递给上面提到的标签，通过更改rs.AbosolutePosition，我可以显示第一行、第二行、第三行等。现在我的问题是如何在VB.NET中实现这一点？

如果您知道它在

vb6

中的作用，那么可以很容易地将其转换为

.NET

。您尝试过什么？如果您安装了VS2008，它显然可以将vb6代码转换为vb.net。从那里你可以打开VS2008代码的最新版本，并在那里升级。我还发现了这个vb转换器-我还没有尝试过，所以我可以担保它@Jeremy-您发布的链接不相关，因为DataReader对象仅向前，因此不支持绝对定位。