[elgokr]

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

فقط استخدم الكود بهذا الشكل 

كود :

       Conn.Open()
       Dim cmd As New OleDbCommand("SELECT MaterialName FROM Materials WHERE SANF = '@SANF'", Conn)
       cmd.Parameters.AddWithValue("@SANF", "fix_parts")
       Dim dt As New DataTable
       Dim da As New OleDbDataAdapter(cmd)
       da.Fill(dt)

       Dim col As New AutoCompleteStringCollection
       Dim i As Integer

       MsgBox(dt.Rows.Count)

       If Not dt.Rows.Count > 0 Then Conn.Close() : Exit Sub

       For i = 0 To dt.Rows.Count - 1
           col.Add(dt(i)("MaterialName").ToString())
       Next

       Conn.Close()
       TxTMaterialName.AutoCompleteSource = AutoCompleteSource.CustomSource
       TxTMaterialName.AutoCompleteCustomSource = col
       TxTMaterialName.AutoCompleteMode = AutoCompleteMode.Suggest

وان شاء الله سيتم حل المشكلة

وكل ما عليك هو التاكيد من كود الاستعلام والقيمة المرسلة لها

تحياتى لك

وتمنياتى لك التوفيق