Sub ttest_dao()
Dim rst As DAO.Recordset
Dim i As Long

Set rst = CurrentDb.OpenRecordset("Запрос21")
    Do Until rst.EOF
            For i = 0 To rst.Fields.Count - 1
                Debug.Print rst(i).Name; "="; rst(i); vbTab; "Type="; rst(i).Type
            Next i
        rst.MoveNext
    Loop
rst.Close
Set rst = Nothing
End Sub

test_table_sub_id= 10     Type= 4 
partyid= 10     Type= 4 
col_num= 1234,5     Type= 20 
test_table_sub_id= 11     Type= 4 
partyid= 10     Type= 4 
col_num= 678,9     Type= 20