Sub cmdOpenRecordset_Click()
    Dim rsStudents As Recordset
    Set rsStudents = New Recordset
    With rsStudents
        .CursorLocation = adUseClient
        .Open "SELECT StudentID FROM Students", cnStateUBookstore
    End With
End Sub