在 Visual Basic 6 中使用 Adodb 记录集到 VB.net

Question

下面的代码适用于visual basic 6.0，我希望在vb.net中使用此代码，我认为在vb.net（Visual Studio 2013）上键入时出现错误

我的 MS Access 数据库的名称是“mySavings.accdb”

表名是“Balance”，有一个名为“Balance”的字段

我已经添加了参考：Microsoft ActiveX Data Objects 6.0 Library Microsoft ActiveX Data Objects Recordset 6.0 Library 提前谢谢你，这是我在 VB6 中的代码

Public con As New ADODB.Connection
Public rs As New ADODB.Recordset    
    Dim Amount as String
Private Sub Form_Load()
    con.Open ("Provider=Microsoft.ACE.OLEDB.12.0; Data Source = C:\Users\MyPc\Documents\Visual Studio 2013\Projects\mySavings.accdb")

    rs.Open ("Select * from Savings"), con, 3, 2
    Amount = rs!Balance
    msgbox("You're current balance is " & Amount)
End Sub

Answer 1

自从我使用 ADODB 已经有一段时间了，但我认为这应该有效

Amount = rs.Fields.Item("Balance").Value

Answer 2

是 rs!Balance 代码不对。 另一种方法来做到这一点：

    Dim Amount As Decimal = rs.Fields("Balance").Value