ADO Connection To SQL Back-end

I am working on an MS Access database that will connect to an MS SQL db back-end through ADO code only (no constant connection), so I am using connection strings when it is needed to pull back data, other wise it is not connect to the back-end database.

I am trying to get the code correct, and I believe I am close but missing one piece. Here is an example of what I have so far:

--------------------------------------------------------
Dim cat As New ADODB.Connection
Dim cmd As ADODB.Command
Dim rs As ADODB.Recordset

cat.ConnectionString = "PROVIDER=SQLOLEDB;SERVER=KCNTLBASE;DATABASE=Test;U ID=testuser;PWD=testpassword"
cat.Open

Set cmd = New ADODB.Command
cmd.ActiveConnection = cat
cmd.CommandType = adCmdText
cmd.CommandText = "Select MttrNm from dbo.Page0"
cmd.Execute

Set rs = New ADODB.Recordset
rs.Open cmd 'cmd.Execute

MsgBox rs.RecordCount, vbOKOnly, "Test"
'Debug.Print rs.GetString

cat.Close
-------------------------------------

I believe my error is at this line:

cmd.ActiveConnection = cat

I want the cmd to use the connection string. But all the help I find is just the code "CurrentProject.Connection" which only connects me to the MS Access database itself.

Does anyone know what I need to place here so that the cmd is using the correct connection string to the SQL back-end?

Thank you for your time.

TJ Bernard