trouble with this very very basic database

Cn.Provider = "Microsoft.Jet.OLEDB.4.0;"
Rs.Source = Path + "\Brakes.mdb"
Cn.ConnectionString = "Data Source = " + Path + "Brakes.mdb; "
Cn.Open
Rs.Open "select * from Data", Cn
If Not Rs.EOF Then
TextMake.Text = Rs.Fields("Make").Value


example...
If the field "Make" in the database does not contain a data value then there will be an error.

VB Code:

Cn.Provider = "Microsoft.Jet.OLEDB.4.0;"
Rs.Source = Path + "\Brakes.mdb"
Cn.ConnectionString = "Data Source = " + Path + "Brakes.mdb; "
Cn.Open
Rs.Open "select * from Data", Cn
If Not Rs.EOF Then
 TextMake.Text = Rs.Fields("Make").Value & ""
end if

Quote:

---

Originally posted by John McKernan

VB Code:

Cn.Provider = "Microsoft.Jet.OLEDB.4.0;"
Rs.Source = Path + "\Brakes.mdb"
Cn.ConnectionString = "Data Source = " + Path + "Brakes.mdb; "
Cn.Open
Rs.Open "select * from Data", Cn
If Not Rs.EOF Then
 TextMake.Text = Rs.Fields("Make").Value & ""
end if

---

oR you can use

VB Code:

TextMake.Text = Rs.Fields(INDEX).Value & ""