Multiple queries on same page

What would be the correct way to have more then one query on a page. Here is the code I am using for just one query. I would like to add more, I just want to make sure I am doing things correctly.

<%
'Dimension Variables
Dim adoCon 'Holds the database connection object
Dim rsService 'Holds the recordset for the records in the database
Dim strSQL 'Holds the SQL query

'Create an ADO connection object
Set adoCon = Server.CreateObject("ADODB.Connection")

'Create an active connection to the connection object
adoCon.Open "DSN=rockenbach"

'Create an ADO recordset object
Set rsService = Server.CreateObject("ADODB.Recordset")

'Initialize the strSQL variable with an SQL query
strSQL = "SELECT servicesid, service FROM r_services ORDER BY sort asc"

'Open the recordset with SQL query
rsService.Open strSQL, adoCon
%>

Something like this? I created another recordset and query

<%
'Dimension Variables
Dim adoCon 'Holds the database connection object
Dim rsService 'Holds the recordset for the records in the database
Dim rsPortfolio 'Holds the recordset for the records in the database
Dim strSQL 'Holds the SQL query
Dim strSQL2 'Holds the SQL query

'Create an ADO connection object
Set adoCon = Server.CreateObject("ADODB.Connection")

'Create an active connection to the connection object
adoCon.Open "DSN=rockenbach"

'Create an ADO recordset object
Set rsService = Server.CreateObject("ADODB.Recordset")
Set rsPortfolio = Server.CreateObject("ADODB.Recordset")

'Initialize the strSQL variable with an SQL query
strSQL = "SELECT servicesid, service FROM r_services ORDER BY sort asc"
strSQL = "SELECT * FROM portfolio"

'Open the recordset with SQL query
rsService.Open rsPortfolio.Open strSQL,strSQL2, adoCon
%>

I understand what you are saying with SQL Server. I am using Access though. What would be good practice for Access with mulitple queries?