All pastes #41861 Raw Edit

Untitled

public text v1 · immutable
#41861 ·published 2006-02-16 19:16 UTC
rendered paste body
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