ما المشكلة في الكود التالي لتجميع حقول منفصلة

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

أنا لدي برنامج مصمم بفيجوال بيسك 2005 ومربوط بقاعدة بيانات أكسس 2003

يحتوي على 3 جداول الجدول الأول يحتوي بيانات صفوف الطلاب والجدول الثاني يحتوي على بيانات الفصول والجدول الثالث يحتوي على أسماء الطلاب ولكن الأسماء تحتوي على حقول (اسم أول - اسم ثاني - اسم ثالث - اسم رابع)

وقمت بربطهم بكومبوبوكس بحيث إذا اخترت اسم الصف من الكمبوبو1 يظهر لي بيانات الفصول داخل هذا الصف وهكذا بالنسبة للطلاب

والعمل تم بنجاح والحمد لله وثمت باستدعاء أسماء الطلاب حيث أن جدول الأسماء لا يحتوي على اسم الطالب بالكامل ولكن يحتوي على حقول منفصلة

فأنا قمت بعمل استعلام لجمع الحقول ووضعها في كمبوبوكس ونجحت العملية تمام وقد تعلمت ذلك من هذا المنتدى الرائع بحق

ولكن المشكلة أنه أريد إذا تغير اسم الطالب (طبعا الاسم الكامل في الكمبوبوكس) يقوم بوضع رقمه داخل تكست بوكس تاني

فأنا استخدمت الكود التالي كما ذكرت لتجميع الحقول وهو

        Dim cmdst As New OleDbCommand
        cmdst = Cn.CreateCommand
        cmdst.CommandText = "Select numberh,(name1+' '+name2+' '+name3+' '+name4) as fullname From st_student Where alsaf LIKE '" + txtsaf.Text + "' And alfasel LIKE '" + txtfasl.Text + "'"
        cmdst.Parameters.AddWithValue("txtfasl.Text", cmbofasl.SelectedValue)
        Dim dast As New OleDbDataAdapter(cmdst)
        Dim dtst As New DataTable("st_student")
        dast.Fill(dtst)
        cmbost.DataSource = dtst
        cmbost.DisplayMember = "fullname"
        cmbost.ValueMember = "fullname"

والكود السابق عمل بنجاح وفعلاً قام بتجميع الحقول المنفصلة ووضعها في حقل جديد باسم Fullname ووضعها داخل ComboBox

ولكن المشكلة في الكود التالي وهو بعد وضع اسم الطالب الكامل في الكمبوبوكس أريد وضع رقمه في تكست بوكس تاني

        Dim Ist As Integer
        Dim dsst As New DataSet
        Dim sglst As String = "SELECT numberh,(name1+' '+name2+' '+name3+' '+name4) as fullname From st_student WHERE (name1+' '+name2+' '+name3+' '+name4) as fullname= '" & Trim(cmbost.Text) & "'"
        Dim DataAdapter3 As New OleDbDataAdapter(sglst, Cn)
        DataAdapter3.Fill(dsst, "st_student")
        txtst.Text = dsst.Tables("st_student").Rows(Ist).Item("numberh")

والكود السابق هو المشكلة بالنسبة لي حيث عند تنفيذ البرنامج يظهر هذا الخطأ ولا أعرف سبب ما هو العامل المفقود كما في الصورة التالية

أرجو تكون الفكرة وضحت وبرجاء معرفتي ما سبب المشكلة أو تعديل الكود السابق إذا كان في خطأ ما وشكرا لكل الأخوه الأعضاء في هذا المنتدى العظيم بحق فأنا تعلمت الكثير والكثير من خلاله ولله الحمد