Sub Main 'Lijst met items controleren, cq invullen Dim fld As ADODB.Field WithHtmGetTableData("Table1").Clone(adLockReadOnly) Debug.Print .RecordCount Debug.Print .Fields.Count DoWhile Not .EOF ForEach fld In .Fields Debug.Print fld.Name & " = " & fld.Value Next .MoveNext Loop EndWith MacroRun"logout.ccl" EndSub