Code snippet เอาดูชื่อ Field + Type ใน Recordset

Dim x As Integer
For x = 0 To madrMainData.Fields.Count - 1
   Debug.Print madrMainData.Fields(x).Name & vbTab & madrMainData.Fields(x).Type
Next