Criar array e armazenar em campo de tabela do access

Bom dia.

Preciso de uma ajuda.
Dei uma estudada no assunto, tentei, mas ainda não cheguei lá.

Qualquer ajuda é bem vinda...

Tbl_funcionarios
Nome_do_perito
Joao
Jose
Marcos
Paulo
Ricardo
Marcelo
Douglas

Preciso que o nome do perito seja exibido no campo Nome_do_perito da tabela Tbl_OrdensDeServico, na mesma sequência da tabela Tbl_funcionarios, como mostrado abaixo.

Tbl_OrdensDeServico
U_SOL_NCB Nome_do_perito
897797010 Joao
923661019 Jose
924988003 Marcos
925097005 Paulo
925908003 Ricardo
926884001 Marcelo
926866002 Douglas
926813006 Joao
926287002 Jose
888914017 Marcos
920089012 Paulo
915024013 Ricardo
926354001 Marcelo
926811003 Douglas
927657008 Joao
927321000 Jose
927699002 Marcos

Pensei em usar array, criando um módulo dentro do access, mas ainda não deu certo.
Segue minha tentativa:

Function nomeperito1()

Dim db As Database, rst As Recordset
Dim arrperito(1 To 7) As String
Dim perito As String
Dim solic As String
Dim U_SOL_NCB As Long

Set db = CurrentDb
Set rst = db.OpenRecordset("Tbl_funcionarios!nome_do_perito", dbOpenDynaset)
Set rst = db.OpenRecordset("Tbl_OrdensDeServico!perito", dbOpenDynaset)
Set rst = db.OpenRecordset("Tbl_OrdensDeServico!U_SOL_NCB", dbOpenDynaset)


Do While U_SOL_NCB Is Not Null

perito = nome_do_perito$

Loop



End Function

Se voce deseja gravar os dados deste perito de uma tabela para outra..

Basta carregar um recordset baseado na tabela onde estão estes nomes e utilizar uma instrução do Tipo

CurrentDb.Execute "Insert Into... bla bla bla

não necessita de array para isso.


Cumprimentos.


Agora para carregar uma array podes utilizar o For..
Veja que a definiste a Array com 7 campos..

- Crie uma variável do tipo integer

Dim X as integer

For x = 1 to 7
 Array(X) = SeuCampoRecordset
Next X

Para Extrair

a mesma coisa

For X = 1 to ubound(Array)
  MsgBox Array(x)
Next X


Cumprimentos.