sembra che apra il db e legga dentro nn da errori all'avvio ma la text nn si riempie

db.mdb
tabella: percorso
record id, db
solo un record esistente



Imports System.Data.OleDb
Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ConnectionString As String = "Provider=Microsoft.jet.oledb.4.0;" & "data Source=f:\pge scheda\db.mdb"
Dim cn As OleDbConnection = New OleDbConnection(ConnectionString)
cn.Open()

Dim SelectString As String = "select id, db from percorso"
Dim cmd As OleDbCommand = New OleDbCommand(SelectString, cn)
Dim reader As OleDbDataReader = cmd.ExecuteReader()
TextBox1.Text = reader("db").ToString()
reader.Close()
cn.Close()
End Sub