[Resolvido]Obter dados de outra tabela no formulário

Senhores,
Boa tarde!

tenho uma tabela chamada de program e outra de param, onde esta armazena um campo (gestora).
Na tabela program tem um campo (Data) em texto que concatenados com o (id) autonumerico forma o (código) que é texto. Gostaria do auxilio dos amigos para acrescentar o campo (gestora) de outra tabela (param)para completar a formação do código. Exemplo:

Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim Ano, Mes, Dia, ID As String

Ano = Year(Me.DATA_INI.Value)


If Month(Me.DATA_INI.Value) < 10 Then
Mes = "0" & Month(Me.DATA_INI.Value)
Else
Mes = Month(Me.DATA_INI.Value)
End If

If Day(Me.DATA_INI.Value) < 10 Then
Dia = "0" & Day(Me.DATA_INI.Value)
Else
Dia = Day(Me.DATA_INI.Value)
End If

ID = Me.Cod.Value

Me.CODIGO.Value = Ano & Mes & Dia & "." & ID & "." CAMPODEPARAMETROS(GESTORA)

End Sub

O que gostaria era de acrescentar formando:

20110126.126.C

Se tiver um campo comum, coloque algo assim:

Me.CODIGO.Value = Ano & Mes & Dia & "." & ID & "." DLookup("ID", "Tabela", "ID=" Me!ID)

falta um & para juntar o DLookup

Me.CODIGO.Value = Ano & Mes & Dia & "." & ID & "." & DLookup("Gestora", "param", "ID=" & Me!ID)

ou

Me.CODIGO.Value = Trim(Ano) & Trim(Mes) & Trim(Dia) & "." & Trim(ID) & "." & Trim(DLookup("Gestora", "param", "ID=" & Me!ID))

Amigos Criquio e Ricardo,

Muito obrigado pela ajuda! Funcinou perfeitamente...