Dim veritabani2 As Access.Application

    Set veritabani2 = Nothing

    Set veritabani2 = New Access.Application

        With veritabani2

            .OpenCurrentDatabase "D:\Polsoft\Polsoft.mdb" 'veritabanı adı

            .DoCmd.OpenForm "frm_acilis" 'veritabanındaki formun adı

        End With