[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
اخي الكريم 
كل الاخوة جزاهم الله كل خير نصحوك بالابتعاد عن الكلمات المحجوزة للغة في تسمية جداول او حقول مما تسبب الاخطاء القاتلة وانت مصرّ على استخدامها لماذا لا اعلم؟؟؟؟؟!!!!!
الشي الآخر انك تضع الاستعلام في حدث ComboBox1_Click وهذا خطأ أخر ضع الكود في زر بوتون 
قم بتغيير كل الكلمات المحجوزة من (Input , Output) وغيرها ان كانت موجودة في البرنامج

اليك الكود بعد القليل من التعديل لاتنس ان تغير الكلمات المحجوزة قم بالتجربة وان لم تنجح قم بوضع المثال ليصار الى معاينته واصلاح الخلل

كود :

Imports System.Data
Imports System.Data.OleDb
Public Class Form1

   Public constr As String = " provider = microsoft.ace.oledb.12.0;" & "data source = " & Application.StartupPath & "\md.accdb"
   Dim con As New OleDbConnection(constr)
   Dim sqlstr As String = "select * from [input]"


   Dim ds, ds1 As New DataSet
   Dim bind, bind1 As New BindingSource
   Dim da, da1 As OleDbDataAdapter


   Sub fill_comb()
       con.Open()
       'TextBox1.Text = ""
       ds.Clear()
       Dim da As New OleDbDataAdapter(sqlstr, con)
       da.Fill(ds, "[input]")
       con.Close()
       ComboBox1.DataSource = ds.Tables("[input]")
       ComboBox1.DisplayMember = "dic2"
       ComboBox1.ValueMember = "dec1"

   End Sub

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       fill_comb()
   End Sub

   Sub bindtexts()

       TextBox1.DataBindings.Add(New Binding("Text", ds.Tables("[input]"), "dec3"))
       TextBox2.DataBindings.Add(New Binding("Text", ds.Tables("[input]"), "dec2"))
       TextBox3.DataBindings.Add(New Binding("Text", ds1.Tables("[output]"), "tuy"))
   End Sub

   Private Sub ComboBox1_SelectionChangeCommitted(sender As Object, e As EventArgs) Handles ComboBox1.SelectionChangeCommitted
       'bind = New BindingSource(ds, "input")
       bindtexts()

   End Sub

   ' هذا بوتون
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       TextBox1.DataBindings.Clear()
       TextBox2.DataBindings.Clear()
       TextBox3.DataBindings.Clear()
       Dim sqlstr1 As String = "select * from [output] where mohy = '" + ComboBox1.Text + "' "

       con.Open()
       'TextBox1.Text = ""
       ds1.Clear()
       Dim da1 As New OleDbDataAdapter(sqlstr1, con)
       da1.Fill(ds1, "[output]")
       con.Close()
   End Sub
End Class