Niente...non è vero ho provato ma non funziona

questo è il codice

-------------------------------------------------------------
Imports System.Data

Imports System.Data.OleDb
-------------------------------------------------------------
Public Class Form1

Dim myConnection As OleDbConnection
Dim CnConnessioni As OleDbConnection

Dim connStr As String

-------------------------------------------------------------

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Jet OLEDBatabase Password=Ciao;"
connStr &= "Data Source=" & Application.StartupPath & "\Archivio.mdb;"
connStr &= "Jet OLEDB:Engine Type=5;"
CnConnessioni = New OleDbConnection(connStr)
CnConnessioni.Open()
End Sub
End Class
-------------------------------------------------------------

Cosi facendo non si connette
In pratica quando si connette ad un DB di access nella stessa cartella si vede il file che crea access di accesso ai dati, con l'icona di un DB con un lucchetto, a me questa iconcina non la crea, quindi significa che non sono connesso
Non capisco dove sbaglio

Ciao e grazieeeeee