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!!!