' Variable fuer ConnectionObjekt
Dim mConn As New ADODB.Connection
 
' Objektvariable fuer aktuelles Recordset
Dim mRs As ADODB.Recordset
 
 
Private Sub Form_Load()
Dim sql_student As String
 
Set mRs = New ADODB.Recordset
 
If OpenRecordset(mRs, mConn, sql_student, adOpenStatic, adUseClient, _
  adLockOptimistic) Then
sql_student = "Select DISTINCT matrikelnr FROM [Student]Order by matrikelnr"
 
        Do Until mRs.EOF
 
        cmb_student.AddItem mRs.Fields("matrikelnr")
 
        mRs.MoveNext
        Loop
End If
 
End Sub