اين ال Connection String ؟؟؟؟
كود :
Dim con As New OleDbConnection("Provider=Microsoft.ace.oledb.12.0; Data Source =" & Application.StartupPath & "\Database.accdb")