Public Sub connectsql()
Dim strConn As String
strConn = "Provider=Microsoft.JET.OLEDB.4.0;data source=C:\\Users\\Miki\\Documents\\Visual Studio 2010\\Projects\\Project VB\\Project VB\\Project BC.accdb"
With conn
If .State = ConnectionState.Open Then .Close()
.ConnectionString = strConn
.Open()
End With
End Sub
Tag : .NET, Ms Access, VB.NET, VS 2010 (.NET 4.x), Windows
Public Sub connectsql()
Dim strConn As String
strConn = "Provider=Microsoft.ACE.OLEDB.12.0;data source=C:\\Users\Miki\Documents\Visual Studio 2010\Projects\Project VB\Project VB\Project BC.accdb"
With conn
If .State = ConnectionState.Open Then .Close()
.ConnectionString = strConn
.Open()
End With
End Sub
Load balance : Server 02
