VB读取ACCESS数据库问题

Question

我想读取D盘的“DB1”数据库里“S1”中“LH”列的最后一个数据的，放到TEXT1中，表的ID是自增的，请问怎么写代码？

Answer 1

Private Sub Form_Load()
Dim DataStr As String
Dim ConnStr As String

DataStr = "D:\D_B1.mdb"
ConnStr = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & DataStr & ";"

Dim Sql As String
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset

Conn.Open ConnStr
Sql = "SELECT top 1 LH FROM S1 ORDER BY ID DESC;"
Rs.Open Sql, ConnStr, 1, 3
If Not (Rs.EOF And Rs.bof) Then

    Debug.Print Rs("LH")

End If
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing

End Sub