Sub runcmdobj()
Dim cmd As ADODB.Command
Dim strSQL As String
Set cmd = New ADODB.Command
strSQL = "SELECT * FROM Employees"
'Resuse the current Access connection
Set cmd.ActiveConnection = CurrentProject.Connection
cmd.CommandText = strSQL
cmd.Execute
Set cmd = Nothing
End Sub