[ahmed_elwerfalli]

الحمد لله رب العالمين تم حل المشكلة و هي تغيير علامة * إلى % 
طبعاً لعدم وجود ردود قلت نكتب الحل لعل احد من المتصفحين يستفيد منه 

كود :

Try
           Dim sa1 As String = "select * from qmonth"
           Dim cmd11 As New OleDbCommand(sa1, cn)
           Dim drq As OleDbDataReader = cmd11.ExecuteReader
           While drq.Read
               If drq.HasRows Then
                   Dim s As String = "update qmonth set staite_a=@x1 where code_q LIKE '%" + TextBox1.Text + "%'"
                   Dim cmdz As New OleDbCommand(s, cn)
                   Dim zz As Integer = 1
                   cmdz.Parameters.AddWithValue("@x1", zz)
                   cmdz.ExecuteNonQuery()
               Else
               End If
           End While
           drq.Close()

       Catch ex As Exception
           MsgBox(ex.Message)
           Exit Sub
       End Try