consulta com o objeto command - erro

e aí galera do forum... estou com um probleminha e gostaria de saber se alguém pode me ajudar.

estou fazendo uma consulta a um banco de dados através de um Command, pois vou utilizar a impressão no datareport sem usar o dataenvironmet, pois bem, tá tudo beleza, a consulta é realizada com sucesso, o registro que eu quero é impresso, mas quando eu fecho a janela de impressão e volto para a tela onde vou selecionar outro registro para impressão me aparece o seguinte erro:

'Run-time error 3707'

Cannot change the ActiveConnection property of a Rocordset object which has a Command object as its source

e depois o programa para nessa linha:

    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="caminho_banco"

    With Cmd
        .ActiveConnection = conn
        .CommandType = adCmdText
        .CommandText = "SELECT * FROM tab1 WHERE Mat LIKE '%" & txt1.text & "%' ORDER BY Data"
        .Execute
    End With

    With rs
        .ActiveConnection = conn
        .CursorLocation = adUseClient
        .Open Cmd
    End With

alguém sabe como solucionar isso??

já tentei fechar o banco e tudo o mais, mas sempre aparece esse erro, o que fazer?

valew,

Luciano