在ADO中怎样取得一个表的所有字段名？-->WTM1转移

goodidea

Public Sub findname()

    Dim rst As New ADODB.Recordset
    Dim Tbname As String
    Dim FieldsCount As Integer
    Dim i As Integer
   
    Tbname = "computer"
    rst.Open "select top 1 * from " & Tbname, CurrentProject.Connection
        
    FieldsCount = rst.Fields.Count
    For i = 0 To FieldsCount - 1
        Tbname = Tbname & vbNewLine & rst.Fields(i).Name
    Next
    MsgBox Tbname
    rst.Close
   
End Sub

goodidea

ADOX不会用