Nuevo comando en DataEnvironment y asignación de este a un datareport

[Enea]

Estoy trantando de agregar un nuevo comando a mi DataEnvironment (DataEnvironment1) en tiempo de ejecución para posteriormente asignarlo a un datareport (DataRep_Cliente). ¿Que estoy haciendo mal?

Código:

Private Sub btn_imprimir_Click()
         
    Dim Cliente As Command
    Set Cliente = New Command
    
    With Cliente
    .CommandType = adCmdText
    .CommandText = "SELECT * FROM Cliente WHERE Id=" & Id & ""
    End With
    
    Set DataRep_Cliente.DataSource = Cliente
  
    DataRep_Cliente.Show

End Sub

Muchas gracias!!!