Visual Basic.NET - instalador de vb.net con base de datos en access

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

‘Cambia la cadena de conexión por la que tu usas…

Dim sConnectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + My.Computer.FileSystem.CurrentDirectory + "\Northwind.accdb"

        Using connection As New OleDbConnection(sConnectionString)

            Try

                'AQUI ----

                connection.Open()

                'Verificamos el estado de la conexión. Solo para propositos de depuración...

                Select Case connection.State

                    Case ConnectionState.Open

                        MessageBox.Show("Conexión abierta")

                    Case ConnectionState.Closed

                        MessageBox.Show("Conexión cerrada")

                    Case Else

                        MessageBox.Show("Conexión en otro estado...")

                End Select

                'Demostración - Reemplaza por valores contenidos en tu Base de Datos.             

                Dim command As New OleDbCommand("Select CompanyName, ContactName from Customers", connection)

                Dim reader As OleDbDataReader = command.ExecuteReader()

                While reader.Read()

                    Debug.Print(reader.GetString(0) & " - " & reader.GetString(1))

                End While

                reader.Close()

            Catch ex As Exception

                MessageBox.Show("Exception: " & ex.Message)

            End Try

        End Using

    End Sub