Oke sorry,

Here is my latest try

Code:
 Dim con As New OleDb.OleDbConnection
        Dim dbProvider As String
        Dim dbSource As String
        Dim ds As New DataSet
        Dim da As OleDb.OleDbDataAdapter
        Dim Sql As String

        Dim s As String = "My.Application.Info.DirectoryPath"
        Dim s2 As String = String.Format("{0}\AddressBook.mdb;Jet OLEDBatabase Password=123;", s)

        dbProvider = "PROVIDER=Microsoft.Jet.OLEDB.4.0;"
        dbSource = String.Format("Data Source= ({0}\AddressBook.mdb;Jet OLEDBatabase Password=123;", My.Application.Info.DirectoryPath)

        con.ConnectionString = dbProvider & dbSource
        con.Open()

        Sql = "SELECT * FROM tblContacts"
        da = New OleDb.OleDbDataAdapter(Sql, con)
        da.Fill(ds, "AddressBook")
        con.Close()

        TextBox1.Text = ds.Tables("AddressBook").Rows(0).Item(3)
I get a error now

Code:
Could not find installable ISAM file.