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
![Çözüldü](images/icons/cozuldu.png)