Hämta data

[sverker20]

Jag har problem att hämta data från Access. Koden ser ut som följande.

 

Dim cn As New OleDbConnection("Provider=microsoft.jet.oledb.4.0;Data source=H:\My Documents\IED009\bilverkstad\databasbilverkstad.mdb")

 

Dim dr7 As OleDbDataReader

 

Dim s As String = "select timkostnad from personal where persnr=" & txt_persnr.Text

 

Dim cmd6 As New OleDbCommand(s, cn)

 

dr7 = cmd6.ExecuteReader()

 

När jag kollar så står det att dr7 har värdet nothing och att s har värdet

select timkostnad from personal where persnr=8207168553.

 

Det jag vill göra är att hämta datat från tabellen personal. Jag vill sparar timkostnaden som svarar mot ett visst personnummer som en vaiabel så att jag sedna kan ta denna variabel (s) gånger ex 10.

 

Tacksma för all hjälp