Prova così:

Dim Conn As New OleDb.OleDbConnection(StringaConnessione)
Conn.Open()