'dim AccessDBFile, Password as string
        '
        Dim Connection As New System.Data.OleDb.OleDbConnection
        '
        Dim strConnection As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data" & _
          "source='" & _
                                      AccessDBFile & "'; Jet OLEDB:database" & _
                                      "password=" & Password
        '
        Connection.ConnectionString = strConnection
        '
        Try
            Connection.Open()
            ' Insert code to process data.
        Catch ex As Exception
            MessageBox.Show("Failed to connect to data source")
        Finally
            Connection.Close()
        End Try