Question

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

我用Vb编写一个调用Access数据库的程序，希望在窗体load的时候能在ListTable中显示数据库这个表的表头（即字段名），请问如何实现？
给我一段语句就OK了

Answer 1

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

Answer 2

Rs.Fields(2).name