[Resolvido]Pegar informações de BD externo para SQL

Olá pessoal eu tenho o seguinte código

Dim db As DAO.Database
Dim rs As DAO.Recordset

db = "\\SERVIDOR\C\ISMO\"Controle ISMO-08.mdb"

rs = db.OpenRecordset("SELECT cod, Nome, Registro, Telefone, Endereço, Cidade FROM Bera where cod=(nº_prontuário);")

paciente = rs(1)
txtcpf = rs(2)
txttel = rs(3)
txtend = rs(4)
txtcidade = rs(5)



o db não é o currentdb, ele é um outro banco de dados do qual eu gostaria de puxar as informações
"nº_prontuário" é um campo do form que no evento after update preenche os outros campos com as informações do db externo

está dando erro de uso invalido da propriedade na 3ª linha, como faço pra resolver o problema?

Resolvi da seguinte forma pessoal

Dim db As Database
Dim rs As DAO.Recordset


Set db = OpenDatabase("\\SERVIDOR\C\ISMO\Controle ISMO-08.mdb")


Set rs = db.OpenRecordset("SELECT cod, Nome, Registro, Telefone, Endereço, Cidade FROM Bera WHERE cod=" & [Nº_PRONTUÁRIO])


If rs.RecordCount > 0 Then
PACIENTE = rs(1)
txtcpf = rs(2)
txttel = rs(3)
txtend = rs(4)
txtcidade = rs(5)

Set rs = Nothing
Set db = Nothing
txtdtenvio.SetFocus

Else
Set rs = Nothing
PACIENTE.SetFocus
End If