m_condboledb = New OleDb.OleDbConnection( _
        "Provider=Microsoft.Jet.OLEDB.4.0;Password=;" _
        & "User ID=Admin;Data Source=" & Application.StartupPath & _
        "\script.mdb")
 
        Dim mycmd As IDbCommand
        mycmd = m_condboledb.CreateCommand
        mycmd.CommandText = ("Select * FROM befehle")
 
        m_condboledb.Open()
 
        TextBox1.Text = mycmd.ExecuteScalar
        m_condboledb.Close()