Imports System.Data.OleDb
Module Module1
Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\admin\Desktop\testproject001\Test_printer001\testnew.accdb" & Application.StartupPath & "\testnew.mdb")
End Module
Imports System.Data.OleDb
Module Module1
Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source="Application.StartupPath & "\testnew.accdb")
End Module
Public ConnectionClient As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\Database\myDatabase.mdb;Persist Security Info=False;OLE DB Services=-1"
Dim strConnection As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\testnew.mdb;Persist Security Info=False;OLE DB Services=-1"
Dim con As New OleDbConnection(strConnection)