مشكلة ظهرت في كود الاضافة

كود الإضافة كان يعمل عندي بصورة جيدة وهو عند الضغط علية يزيد في التسلسل واحد

بمعنى

المسلسل = 1 بعد الضغط عليه يزيد ليصبح المسلسل = 2

ولكني فوجئت بان التسلسل يعطي رسالة بأن التسلسل مكرر

ولا يريد الزيادة

ومرفق لكم الكود للتعديل وجزاكم الله خير

    Public Sub bill_numb()
        Dim cmdno As New OleDb.OleDbCommand("Select * From Bill_info", con)
        con.Open()
        Dim drno As OleDb.OleDbDataReader = cmdno.ExecuteReader

        While drno.Read
            bill_no.Text = drno(0)
        End While
        Me.bill_no.Text = Val(Me.bill_no.Text) + 1
        con.Close()
        drno.Close()
    End Sub

وفي زر الإضافة يقوم باستدعاء الإجراء

    Private Sub BTN_ADD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_ADD.Click

        BTN_ADD.Enabled = False
        BTN_EX.Enabled = True
        btn_prin.Enabled = False
        BTN_SAV.Enabled = True
        CMP_CIT.Enabled = True
        CMP_CUS.Enabled = True
        DataGridView1.Enabled = True

        Call CLEAR()
        Call setg()
        Call bill_numb()


    End Sub