Dim cmd As ADODB.Command
Dim strQueryText As String


cmd.ActiveConnection = CurrentProject.Connection

cmd.CommandType = adCmdText
strQueryText = "SELECT Store_Profile.SPStoreNo, Store_Profile.SPSiteNo, Contact_Profile.CPExtAcctPhoneNo, Contact_Profile.CPExtAcctFaxNo"
strQueryText = strQueryText & "FROM Contact_Profile INNER JOIN Store_Profile ON Contact_Profile.SPStoreNo=Store_Profile.SPStoreNo" & ";"
cmd.CommandText = strQueryText

cmd.Execute

End Sub

Is this a question?

Maybe you want to get a recordset to save the result of the cmd.execute?
You can define a recordset.(for example, name is rst)
set rst=cmd.execute