ช่วยด้วยครับ เลขที่บิลรันเลขเดียวกันทั้ง 2 ฟร์อมถ้าเปิดพร้อมกัน 2 เครื่อง

Public Sub generate_claimID()
    Try
        sql = "select max(fclaim_id) from bassclaimin"
        Dim i As Integer = cmd_excuteScalar() + 1
        txt_claim_full_id.Text = "CM" & Date.Now.Day & Date.Now.Month & Date.Now.Year & i.ToString.PadLeft(5, "0")
    Catch ex As Exception
        txt_claim_full_id.Text = "CM" & Date.Now.Day & Date.Now.Month & Date.Now.Year & "00001"

    End Try
End Sub