كيف يمكن تفريغ قيمة معينه في تكست بوكس بناءا على قيمة محدده في البحث في الداتا

بسم الله الرحمن الرحيم

الاخوه الكرام بارك الله فيكم جميعا وكل عام وانتم بالف خير

لقد فتح الله علي وتوصلت الى هذا الحل ارجو ان يستفيد منه الآخرين

 Private Sub txtUserFullName_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtUserFullName.Leave

		Usercom.Connection = userconn
		Usercom.CommandType = CommandType.Text
		Usercom.CommandText = "select userFullName,username,userpass from users where UserFullName='" & txtUserFullName.Text & "'"

		Userconn.Open()
		dr = Usercom.ExecuteReader
		dr.Read()
		If dr.HasRows = True Then

			txtUserFullName.Text = dr(0)
			txtUserName.Text = dr(1)
			txtUserPass.Text = dr(2)
			txtUserName.Focus()

		Else

			txtUserName.Text = ""
			txtUserPass.Text = ""
			txtUserName.Focus()
			UsersDataGridView.Enabled = True


		End If
		Dr.Close()
		userconn.Close()


	End Sub

اخوكم

ابو عبيده