01.
Public
Sub
connectsql()
02.
Dim
strConn
As
String
03.
strConn =
"Provider=Microsoft.JET.OLEDB.4.0;data source=C:\\Users\\Miki\\Documents\\Visual Studio 2010\\Projects\\Project VB\\Project VB\\Project BC.accdb"
04.
With
conn
05.
If
.State = ConnectionState.Open
Then
.Close()
06.
.ConnectionString = strConn
07.
.Open()
08.
End
With
09.
End
Sub