فراخوانی آیتم چک لیست از دیتابیس

[ak1_2004]

سلام
یک چک لیست دارم که می خوام آیتم هاش از دیتابیش فراخوانی بشه !
کد زیر رو نوشتم ولی ایراد می گیرده !


Dim con As OleDbConnection = New OleDbConnection(strcon)
Dim cmd As OleDbCommand = New OleDbCommand
Dim data As OleDbDataReader
con.Open()
cmd.CommandText = sqlstring
cmd.Connection = con
data = cmd.ExecuteReader()
While data.Read
CheckedListBox1.Items.Add(data.Item(1))
End While
con.Close()

[alimanam]

با سلام

نمونه کدی که واستون نوشتم می تونه کمکتون کنه . یا علی

[ak1_2004]

می شه بفرمایید چه فرقی با این کد خودم می کنه ؟
چون دقیقا همین رو نوشتم ولی کار نمی کنه و به محض اینکه دیتا به دیتابیس ریخته می شه دیگه اررو می ده !
ممنون ولی فکر نکنم کار کنه !

[alimanam]

با سلام

دوست عزیز اگه یکم به اولویت قرار گرفتن کدها دقت کنی متوجه میشی . اگه متوجه نشدی بگو تا کامل واستون توضیح بدم . یا علی


Imports System.Data.OleDb
Public Class Form1
Dim cnnstr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\db.mdb"
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim data As OleDbDataReader
Dim con As New OleDbConnection(cnnstr)
Dim cmd As New OleDbCommand
con.Open()
cmd.CommandText = "select * from books"
cmd.Connection = con
data = cmd.ExecuteReader()
While data.Read
chklst1.Items.Add(data.Item(1))
End While
con.Close()
End Sub
End Class

http://1imagehosting.com/images/565.png

[ak1_2004]

دستت درد نکنه !
اما لطف کن یه توضیحاتی هم بده !