[asemshahen5]

بص يامعلم :

PHP كود :

       Dim SaveAccess As New SaveFileDialog With {.Filter = "Microsost Access 2007-2016|*.Accdb|All File|*.*", .ShowHelp = True}
        If SaveAccess.ShowDialog = DialogResult.OK Then
''
            TextBox1.Text = SaveAccess.FileName
'و الباقي من عندك من الكود الي تحت ده مش شيفه بسبب رسالة الخطأ'
        End If