สวัสดีครับ ใครพอรู้ช่วยหน่อยครับ จะเขียนอย่างงัยดีครับ เวลาเปิดฟร์อม 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