[Resolvido] Run-time error '3001'

Boas, aqui estou eu outra vez com mais um erro ao ligar o VB a uma base de dados.

Desta vez o erro é o seguinte: Run-time error '3001' --> "Os argumentos são do tipo incorrecto, estão fora do intervalo aceitável ou estão em conflito uns com os outros"

O código é o seguinte:

CODE
Private Sub confirmar_Click()Dim arm_correct As String

Dim cn1 As New ADODB.Connection

Dim rs1 As New ADODB.Recordset

Dim cn2 As New ADODB.Connection

Dim rs2 As New ADODB.Recordset

cn1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\ATI(pen)\MDB\projectotecnologico.mdb;Persist Security Info=False"

cn2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\ATI(pen)\MDB\projectotecnologico.mdb;Persist Security Info=False"

cn1.Open

cn2.Open

****

rs1.Open "SELECT * FROM Produtos WHERE (referencia = '" & ref.Text & "')", cn, 3, 3

rs2.Open "SELECT * FROM Armazém", cn, 3, 3

If rs1.EOF Then

MsgBox "Referência inválida", vbExclamation, "ERRO"

ElseIf rs1!cod_armazem = "AZ" Then

 rs2.Open "SELECT * FROM Armazém", cn, 3, 3

 rs2.AddNew

 rs2!referencia = rs1!referencia

 rs2!tipo_produto = rs1!tipo_produto

 rs2!cod_produto = rs1!cod_produto

 rs2!qualidade = rs1!qualidade

 rs2!calibre = rs1!calibre

 rs2!peso = rs1!peso

 rs2!lote = rs1!lote

 rs2!hora = rs1!hora

 rs2!data = rs1!data

 rs2!cod_armazem = rs1!cod_armazem

 local_armazem

 rs2.Update

Else

arm_correct = rs1!armazem

MsgBox "Armazém errado, por favor dirija-se ao armazém & arm_correct", vbExclamation, "ERRO"

End If

cn1.Close

cn2.Close

End Sub

O erro aponta para a linha a negrito.

O que estou a tentar fazer é copiar dados de uma tabela para a outra, ambas pertencem à mesma base de dados.

O tipo de dados do campo é "texto" e suporta até 255 caracteres.

Os dados que estou a introduzir são, por exemplo: 152543fvAZ3212008

A SQL em Access trabalha bem e não dá erro.

Se alguém poder ajudar mais uma vez agradecia, e desculpem estar sempre a perguntar coisas, mas estou a aprender.

Cumps

ps: já agora, é necessário ter cn1 e cn2 ou basta ter um?