Dim rsLeerlingen As ADODB.Recordset
Dim cLeerlingen As Integer
 
Set rsLeerlingen = New ADODB.Recordset
 
rsLeerlingen.Open "SELECT * FROM leerlingen"
 
rsLeerlingen.MoveFirst
cLeerlingen = rsLeerlingen.RecordCount
 
rsLeerlingen.Close
Set rsLeerlingen = Nothing