Do While Not rst.EOF DoEvents Me.Liste11.AddItem rst!parentId & ";" & rst!parentId rst.MoveNext Loop
ctl="newField" strDdl = "ALTER TABLE Orguler ADD Column " & ctl & " currency NULL;" CurrentProject.Connection.Execute strDdl