Tenta desta forma:
SQL="SELECT * FROM tabela1 WHERE codigo='" & txtchmando.text & "'"
lembrando se seu campo chamado for integer então deve ser feito assim
SQL1="SELECT * FROM tabela2 WHERE codigo=" & txtchmando.text
Set RS1= db.OpenRecordset(SQL1)
e a gora o código para se incluir no seu form
SQL1="SELECT * FROM tabela1 WHERE codigo=" & txtchmando.text
Set RS1= db.OpenRecordset(SQL1)
do while not RS1.EOF
' supondo que isto vá para um listbox
list1.Additem RS1("chamado")
list1.Additem RS1("aberto_por")
list1.Additem RS1("descricao")
SQL2="SELECT * FROM tabela2 WHERE codigo=" & txtchmando.text
Set RS2= db.OpenRecordset(SQL2)
do while RS2.EOF
list1.Additem RS2("acompanhamento")
RS2.MoveNext
Loop
RS1.Movenext
Loop
veja se isto resolve
