Public Sub connect()
Public Con As New OleDbConnection
M_drivepath = Left(Application.StartupPath, 1)
If My.Computer.Name.ToString() = "MSERVER" Then
Con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\WIN_SOFT\RETAIL_SOFT\Datafile\DATA" & aWork_Data & ".accdb;Jet OLEDB:Database Password=M1423456"
Else
Con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=Z:\WIN_SOFT\RETAIL_SOFT\Datafile\DATA" & aWork_Data & ".accdb;Jet OLEDB:Database Password=M1423456""
End If
Brn_File = "SDBRN14" ' SDBRN14 IS TABLE NAME STORE IN Brn_File
Con.Open()
End Sub
' Where you want to Connect Database write Connect
' else Check Connection Open or not
' Write Command If Con.State = ConnectionState.Closed Then Con.Open()