Set rst = db.OpenRecordset("SELECT feld FROM tabelle")
With rst
	If Not .EOF Then
		PrgBar.Value = PrgBar.Min
		i=1
		.MoveLast
		.MoveFirst
 
		Do While Not .EOF
			'Verarbeitung...
 
			If i Mod 100 = 0 Then PrgBar.Value = Round((i / .RecordCount) * 100, 2)
			i = i + 1
			DoEvents
			.MoveNext
		Loop
 
		PrgBar.Value = PrgBar.Max
	End If
End With
rst.close