[mr_hso]

الاخوة الافاضل

السلام عليكم ورحمة الله وبركاته

اسعد الله لحظاتكم

لدي مشروع فيجول بيسك مرتبط بقاعدة بيانات اكسيس
بها جدول اسمه stat (الحالة) مقسم الى (stat_code) و  (stat_name) 
فى الفورم تم ربط الــ Combobox  بعمود (stat_name)
كل ما اريده هو عندما اختار اسم الحالة (مستمر - منتهى - جاري التجديد) من الــ Combobox يظهر فى الــ Textbox الكود الخاص به فى الجدول
وشكرا لكم

كود :

Imports System.Data.OleDb
Public Class lett
    Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=letdb.mdb")
    Dim da As New OleDbDataAdapter()
    Dim dt As New DataTable
    Sub save_data()
        Dim save As New OleDbCommandBuilder(da)
        save.QuotePrefix = "["
        save.QuoteSuffix = "]"
        da.Update(dt)
        dt.AcceptChanges()
    End Sub
    Sub load_data()
        Dim dt As New DataTable
        da = New OleDbDataAdapter("select * from LETTERS", con)
        da.Fill(DT)
        Dim dtJobTicketNo As New DataTable
        Dim cmd As New OleDbCommand("select * from LETTERS where let_code =" & TextBox1.Text & "", con)
        Dim dcJobTicketNo As New OleDb.OleDbCommand("SELECT MAX(let_code)+1 AS JobTicketNo from LETTERS", con)
        con.Open()
        TextBox1.Text = dcJobTicketNo.ExecuteScalar
        con.Close()
        filldata1()
    End Sub
    Sub filldata1()
        da = New OleDbDataAdapter("select * from stat", con)
        da.Fill(dt)
        ComboBox3.DataSource = dt
        ComboBox3.DisplayMember = "stat_name"
    End Sub
    Private Sub lett_load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        load_data()
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Close()
    End Sub
End Class