Dim setKunden As ADODB.Recordset
Dim sqlKunden As String
 
Set setKunden = New ADODB.Recordset
sqlKunden = "SELECT * FROM kunden ORDER BY k_name"
On Error Resume Next
setKunden.Open sqlKunden, cnADO, adOpenDynamic, adLockOptimistic
'zuerst auf letzten Satz positionieren, um Recordcount zu aktualisieren
sqlKunden.moveLast
On Error GoTo 0