[RESOLVED] How to find and counting specific date

I want to make booking service that need date service..i using access and ole db conn..
Condition that i want in date service.
Only 2 no boking in one day
----------------------------
+ Date. + No booking +
----------------------------
+ 29/08/2017 + AN29081701 +
+ 29/08/2017 + AN29081702 +
+ 30/08/2017 + AN30081701 +
+ 01/09/2017 + AN01091701 +
----------------------------
Db : database
I want use automatic n manual to select date service..
In automatic : find top date on db which one only have one no boking (30/08/2017) So will be create AN30081702
in manual : using datepicker , first cek date on date picker compare with date service on db
If find date then cek again available 2 no boking or not if available msgbox("full"). Not create example for (01/09/2017)
AN01091702..
How to make correct n simple code like my condition that i want..
Help me i'm stuck here..thanks

Code:

---

Call koneksi()
        Dim tambah As Long
        Dim tgl = Format(Date.Now, "ddMMyy")
        sql = "select * from booking order by no_booking desc"
        cmd = New OleDbCommand(sql, conn)
        dr = cmd.ExecuteReader
        dr.Read()
        If Not dr.HasRows Then
            Tbnobooking.Text = "AN" + tgl + "01"
        ElseIf dr.HasRows Then
            If Microsoft.VisualBasic.Mid(dr.GetString(0), 3, 6) <> tgl Then
                Tbnobooking.Text = "AN" + tgl + "01"
            ElseIf Microsoft.VisualBasic.Right(dr.GetString(0), 2) >= 02 Then
                Dim st = Microsoft.VisualBasic.Mid(dr.GetString(0), 3, 6)
                Dim dt As Date = Date.ParseExact(st, "ddMMyy", System.Globalization.DateTimeFormatInfo.InvariantInfo)
                Dim dtl As DateTime = dt
                Dim latestdate = Format(dtl, "ddMMyy")
                Dim dtb As DateTime = dtl.AddDays(1)
                Dim nextdate = Format(dtb, "ddMMyy")
              Tbnobooking.Text = "AN" + nextdate + "01"
            Else
                Dim st = Microsoft.VisualBasic.Mid(dr.GetString(0), 3, 6)
                Dim dt As Date = Date.ParseExact(st, "ddMMyy", System.Globalization.DateTimeFormatInfo.InvariantInfo)
                Dim dtl As DateTime = dt
                Dim latestdate = Format(dtl, "ddMMyy")
                tambah = Microsoft.VisualBasic.Right(dr.GetString(0), 2) + 1
      Tbnobooking.Text = "AN" + latestdate + Microsoft.VisualBasic.Right("00" & tambah, 2)
            End If
        End If
        'Date service
        Dim sst = Microsoft.VisualBasic.Mid((dafnoantrean.Text), 3, 6)
        Dim sdt As Date = Date.ParseExact(sst, "ddMMyy", System.Globalization.DateTimeFormatInfo.InvariantInfo)
        Dim tgls As DateTime = sdt
        Tbdateservice.Text = Format(tgls, "dd/MM/yyyy")

---