VB调用数据库如何显示表头

来源：百度知道 编辑：UC知道 时间：2024/08/23 16:14:38
我用Vb编写一个调用Access数据库的程序，希望在窗体load的时候能在ListTable中显示数据库这个表的表头（即字段名），请问如何实现？
给我一段语句就OK了

Private Sub Form_Load()
Dim RS As ADODB.Recordset
Dim tSql As String
Dim I As Integer
List1.Clear
Set RS = New ADODB.Recordset
RS.ActiveConnection = "Driver={Microsoft Access Driver (*.mdb)};Dbq=数据库路径;Uid=Admin;Pwd=数据库密码"
tSql = "Select * From 表名称"
RS.Open tSql, , adOpenStatic, adLockOptimistic
For I = 0 To RS.Fields.Count - 1
List1.AddItem RS.Fields(I).Name
Next I
Set RS = Nothing
End Sub

Rs.Fields(2).name