Private Sub CommandButton1_Click()
    Call test
End Sub
 
Private Sub test()
Dim BenimVt As String
 
BenimVt = ThisWorkbook.Path & "\YPEklentiFormu.mdb"
 
 
'If Nz(Me.LstTblSrg.Column(0)) = 0 Then
'MsgBox "Lütfen Tablo ya da Sorgu Seçiniz."
'
'Exit Sub
'End If
 
Dim tablom As String
tablom = "iller" ' Me.LstTblSrg.Column(0)
 
Dim bb As Object
Set bb = CreateObject("YazilimPlanlamaCom.YazilimPlanlamaCom")
 
Call bb.YP_eklenti(BenimVt, tablom)
 
'şifreli vt ise son parametreye alttaki gibi şifrenizi yazıp, üstteki satırı alttakiyle değiştiriniz.
'Call bb.YP_eklenti(BenimVt, tablom, "vtŞifrem")
 
Set bb = Nothing
End Sub