Private Sub SeuBotão_Click() DoCmd.CopyObject "C:\teste.mdb", "form1", acForm, "form1" End Sub
'C:\teste.mdb é o banco de destino.
................................................................................. Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.