ERRO -3704 OPERAÇÃO NÃO PERMITIDA QUANDO O OBJETO ESTÁ FECHADO

Oi gente, comecei a mexer em banco de dados na semana passada, então sou muito leigo em algumas partes....

Não estou conseguindo atualizar uma tabela, eu quero trocar todas as células que estão escritas 'RE1' por 'B1', e depois fazer mais atualizações ( mas não nesse momento).

Esse aqui colado abaixo, é o meu código, e quando vou atualizar o meu arquivo, ele dá o erro -3704 "OPERAÇÃO NÃO PERMITIDA QUANDO O OBJETO ESTÁ FECHADO".

Alguém poderia me ajudar por favor?

Sub conexão()

Dim cnn  As ADODB.Connection

Dim rs          As ADODB.Recordset

Dim SQLstr      As String

'PathArqTUCA1 = "\Reportes\" & rngData(iArquivo, 1)

'nomeArquivo = "[" & rngData(iArquivo, 2) & "]"

Set cnn = New ADODB.Connection

cnn.Provider = "Microsoft.ACE.OLEDB.12.0"

cnn.ConnectionTimeout = 90

cnn.ConnectionString = "Data Source= C:\Nova pasta\Testando\" _

& ";" & "Extended Properties=""text;HDR=Yes;FMT=Delimited"""

cnn.Open

Set rs = New ADODB.Recordset

rs.CursorLocation = adUseClient

SQLstr = _

	              " UPDATE [UCBT_01.txt] " & _

	              " SET GRU_TAR='B1'" & _

	              " WHERE GRU_TAR= 'RE1';"

	     rs.Open SQLstr, cnn, adOpenForwardOnly, adLockReadOnly, adCmdText

	    

	   'cria arquivo texto

	'Set txtFile = fso.CreateTextFile("C:\Nova pasta\Testando\arqTexto.txt", True)

	'escreve e utiliza o separador ( tabulado ) entre os campos

	'txtFile.Write (rs.GetString(adClipString, , "", vbCrLf, ""))

	'MsgBox "Arquivo texto gerado com sucesso !", vbInformation, "Exportando um Recordset como Texto"

	'Exit Sub

	'trata_erro:

	'MsgBox "Ocorreu o seguinte erro : " & Err.Description

	' End Sub

	Planilha1.Range("F2").CopyFromRecordset rs

	    rs.Close

	    cnn.Close

	    End Sub