diff --git a/components/zeosdbo/src/component/ZAbstractRODataset.pas b/components/zeosdbo/src/component/ZAbstractRODataset.pas
index 656be968..6252e5ec 100644
--- a/components/zeosdbo/src/component/ZAbstractRODataset.pas
+++ b/components/zeosdbo/src/component/ZAbstractRODataset.pas
@@ -1428,7 +1428,7 @@ begin
 
     with ResultSet.GetMetadata do
     begin
-      for I := 1 to GetColumnCount do
+      if GetColumnCount > 0 then for I := 1 to GetColumnCount do
       begin
         FieldType := ConvertDbcToDatasetType(GetColumnType(I));