مشکل در ادیت بانک اطلاعاتی

[ak1_2004]

سلام
اطلاعات از بانک اکسس درون تکست باکس ها فراخونده می شه اما مثل اینکه قفل شده و نمی شه ادیتش کرد !؟
نه فقط در فرم مربوطه بلکه کل فرم های موجود در پروژه به همین حالت در میاد !
یعنی بعد از اجرای کد زیر در Form5 دیگه چیزی دست خودم نیست و برنامه قفل می کنه !!!



Imports System.Data.OleDb
Imports System.Data.SqlClient
Public Class Form5
Dim id As Integer
Private Sub CommandGet(ByVal sqlstring As String)
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
id = data.Item(0)
TextBox1.Text = data.Item(1)
RichTextBox1.Text = data.Item(2)
TextBox2.Text = data.Item(3)
TextBox3.Text = data.Item(4)
End While
con.Close()
End Sub

Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.GorupTableAdapter.Fill(Me.Database1DataSet.Goru p)
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
CommandGet("SELECT * FROM [Gorup] WHERE GR='" & ComboBox1.Text & "'")
End Sub
Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
CommandSet("UPDATE [Gorup] SET GR='" & TextBox1.Text & "' , DT='" & RichTextBox1.Text & "' , MAN='" & TextBox2.Text & "' , TEL='" & TextBox3.Text & "' WHERE id=10")
Label6.Enabled = 1
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
End Class

[ak1_2004]

کسی نمی دونه !؟

[salehbagheri]

دوست عزيز تو اين قسمت يه چرخه باطل داريد!


While data.Read
id = data.Item(0)
TextBox1.Text = data.Item(1)
RichTextBox1.Text = data.Item(2)
TextBox2.Text = data.Item(3)
TextBox3.Text = data.Item(4)
End While

لطفا اصلاحش كنيد به اميدي كه مشكلتان حل شود!