Sub cmdConnect_Click()
    ' Declare and instantiate object variables
    Dim cnStateUBookstore As Connection
    Dim rsStudents As Recordset
  
    Set cnStateUBookstore = New Connection
    Set rsStudents = New Recordset
    
    ' Establish a connection
    With cnStateUBookstore
        .Provider = "SQLOLEDB"
        .ConnectionString = "User ID=sa;" & _
                            "Data Source=MSERIES1;" & _
                            "Initial Catalog=StateUBookstore"
        .Open
    End With
    
    ' Build a recordset
    With rsStudents
        ' Specify the cursor's location
        .CursorLocation = adUseClient
        .LockType = adLockBatchOptimistic
        .Open "SELECT First_Name, Last_Name FROM Students", _
               cnStateUBookstore
    End With
End Sub