gravar em tabela vinculada valores de um formulario

é o seguinte, quando a tabela que ira receber os dados está dentro e nao vinculada da tudo certo, é so eu pegar a mesma tabela de um outro mdb(vinculado) da erro:
Set rs1 = db1.OpenRecordset("tblcontas", dbOpenTable)
parece que é devido dbopentable nao aceita via vinculado ou opentable. me ajudem


Dim db1 As Database, db2 As Database, rs1 As DAO.Recordset, rs2 As DAO.Recordset, rs3 As DAO.Recordset

If MsgBox("Confirma a fatura?", vbYesNo + vbQuestion, "CONFIRMAR") = vbYes Then

Set db1 = CurrentDb

Set rs1 = db1.OpenRecordset("tblcontas", dbOpenTable)

With rs1

.AddNew

![tipodocumento] = "Contrato"
![datadoc] = Forms![form-solicitacao]![datafechamentocontrato]
![DATAFATURA] = Date
![TIPO] = "Receita"
![doc] = Forms![form-solicitacao]![numerolancamento]

Olá

Acrescente o DAO

Dim db1 As DAO.Database, db2 As DAO.Database


Experimente sem o dbOpenTable

Set rs1 = db1.OpenRecordset("tblcontas")

Sucesso!