[Resolvido]Automatizando Módulos

Boa noite
Temos um modulo abaixo que gostaria rodasse automaticamente quando abrissemos um formulario. so que quando coloco este codigo no ao abrir do botao do formulario nao funciona. poderiam me ajudar .

Sub CriaTabela()
Dim Rst1 As DAO.Recordset, Rst2 As DAO.Recordset, I As Integer

Set Rst1 = CurrentDb.OpenRecordset("SELECT ref, qtde FROM txt1 ORDER BY ref;")
Set Rst2 = CurrentDb.OpenRecordset("SELECT ref FROM txt;")

Do While Not Rst1.EOF
For I = 1 To Rst1(1)
Rst2.AddNew
Rst2(0) = Rst1(0)
Rst2.Update
Next
Rst1.MoveNext
Loop
Set Rst1 = Nothing
Set Rst2 = Nothing
End Sub

Bom dia!! Botão não tem o evento ao abrir!
Você terá que chamar essa sub no avento
Ao abrir do formulário da seguinte forma:

Call CriaTabela

Muito grato !! Funcionando !!

Grato pelo retorno amigo, bom serviço e bom final de semana!