title: Error 3709 in VBA/macros
body: <p>A runtime error of 3709 keeps popping up when I run this part of the program.  Does anyone know what I can do to fix it?</p>
  
  <pre><code>Public cn As New ADODB.Connection
  
  Public rs As New ADODB.Recordset
  
  Public CustomerID As Integer
  
  Public CustFirstName As String
  
  Public CustLastName As String
  
  
  Sub GetCustomerList()
  
      Dim strSQL As String
      Dim Customers As Variant
  
      ' Import customer info and use it to populate the list box.
      ' After frmcustomers is unloaded, we will know the CustomerID
      ' and Customer Name of the selected order.
  
      strSQL = "SELECT CustomerID, CustFirstName, CustLastName FROM Customers"
      rs.Open strSQL, cn
  
      frmCustomers.Show
  
      rs.Close
  End Sub
  </code></pre>
  
  <p>Thanks,</p>
  
  <p>JM</p>