100分的简单问题：用ODBC方式连EXCEL，怎样知道此EXCEL中有那些表与表中的字段？

Question

用ODBC方式连EXCEL，怎样知道此EXCEL中有那些表与表中的字段？Dim rs As ADODB.Recordset
      Set rs = New ADODB.Recordset
      Dim sconn As String      rs.CursorLocation = adUseClient
      rs.CursorType = adOpenKeyset
      rs.LockType = adLockBatchOptimistic
      
      sconn = "DRIVER=Microsoft Excel Driver (*.xls);" & "DBQ=" & sFile
      rs.open "SELECT * FROM [" + List.List(List.ListIndex) + "$]", sconn
      Set Read_Excel = rs
      Set rs = Nothing在此之前，我要让用用户来选择打开的表和要查看的字段，怎么实现啊？

Answer 1

SELECT 字段名 FROM 表名,

Answer 2

Set rs = cn1.OpenSchema(adSchemaTables)
  
  lstTable1.Clear
  
  lblStatus1.Caption = "数据源连接成功，正在检索数据表..."
  
  DoEvents
  
  Do Until rs.EOF
    If Trim(rs!TABLE_TYPE) = "TABLE" Then lstTable1.AddItem Trim(rs!TABLE_NAME)
    rs.MoveNext
  Loop

Answer 3

for i=0 to rs.fields.count-1
    print rs.fileds.name
next