I'm not sure what it is that you don't understand...
Dim con as ADODB.Connection
Dim rsADO as ADODB.Recordset
DIm cmd as ADODB.Command
SET con = New ADODB.Connection
SET rsADO = New ADODB.Recordset
-define connection (& optionally any command) parameters here
con.Open
'Using command object - see Help topic: Execute Method (ADO Command)
For a row-returning Command:
Set rsADO = cmd.Execute( RecordsAffected, Parameters, Options )
For a non–row-returning Command:
cmd.Execute RecordsAffected, Parameters, Options
'Without using command object -see Help topic: Open Method (ADO Recordset)
rsADO.ActiveConnection = con
rsADO.Execute("sql statements for action queries"

rsADO.Open "sql statements for returning recordsets", con