其实如果要知道表的字段名要用connection对象的schema方法。例子职下:
-------------
Dim adoConn As ADODB.Connection
Dim adoRS As ADODB.Recordset
Dim sConnectionString As String
Dim sCurrentTable As String
Dim sNewTable As StringSet adoConn = New ADODB.Connection
adoConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=C:\Book\Database\图书资料.mdb"adoConn.Open sConnectionString
Set adoRS = adoConn.OpenSchema(adSchemaColumns)sCurrentTable = ""
sNewTable = ""Do Until adoRS.EOF
sCurrentTable = adoRS!TABLE_NAME
If (sCurrentTable <> sNewTable) Then
  sNewTable = adoRS!TABLE_NAME
  Debug.Print "当前数据表:" & adoRS!TABLE_NAME
End If
  Debug.Print "字段:" & adoRS!COLUMN_NAME
  adoRS.MoveNext
LoopadoRS.Close
Set adoRS = Nothing
adoConn.Close
Set adoConn = Nothing
--------------
你可以根据这个例子来更改你的程序。