Visual Basic

stQuery = "SELECT MAX(substring(st_bill_no from 9 for 15)) FROM sc_bill WHERE dt_bill_date BETWEEN '" & _
                   Format(FirstDayOfMonth, "yyyy-MM-dd") & "' AND '" & _
                     Format(LastDayOfMonth.AddDays(1), "yyyy-MM-dd") & "'"


Thanks In Advance

Try
                SerialPort1.Open()
                If Me.SerialPort1.IsOpen() Then

                    Dim buf(Command.Length) As Byte
                    For i As Integer = 0 To (Command.Length - 1)
                        buf(0) = Asc(Mid(Command, 1, 1))
                    Next
                    ' send to Printer
                    Me.SerialPort1.ReadExisting()
                    Me.SerialPort1.Write(buf, 0, Command.Length())

                    ' wait for response
                    Dim ReturnValue As Integer = -99999

                    Dim start_time As Integer = My.Computer.Clock.TickCount
                    Do Until (Me.SerialPort1.BytesToRead >= 8 Or DemoMode = True)
                        If My.Computer.Clock.TickCount > start_time + 1000 Then
                            DemoMode = True
                            MessageBox.Show("Printer Meter Timed Out")
                            Return ReturnValue
                            Exit Function
                        End If
                    Loop

                    Dim Results As String = Me.SerialPort1.ReadExisting()
                    Dim length = Results.Length()
                    If length < 8 Then
                        MessageBox.Show("Bad Value Sent To Printer")
                        Return True
                    End If
                End If
            Catch ex As Exception
                MessageBox.Show(ex.ToString())
            End Try

For i = 1 To 8
    Dim Ai As Label = DirectCast(Page.FindControl("A" & i.ToString()), Label)
    Dim Si As Hyperlink = DirectCast(Page.FindControl("S" & i.ToString()), Hyperlink)

    If R1200s.Rows.Count < Slots.Rows(0)(Ri).ToString() +1 Then

       Ai.Style.Add("background-color","#000000")
       Si.ImageUrl = "images/" & i & ".png"
       Si.NavigateUrl = "step3.aspx?Time=" & i & "&Date=" & Request.QueryString("Date") & "&Day=" & Request.QueryString("Day") & "&Entry=" & Request.QueryString("Entry")
    End If
Next

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnMake.Click
    Dim dlg As New SaveFileDialog

    With dlg
      .Filter = "Access(.accdb)|.accdb"
      If .ShowDialog = DialogResult.OK Then
        Dim cat As New ADOX.Catalog()
        Try
          cat.Create("Provider=Microsoft.ACE.OLEDB.102.0;Data Source=" & .FileName & ";Persist Security Info=True")
          'cat.Create("Driver={Microsoft Access Driver (*.mdb, *.accdb)};DBQ=" & .FileName)
        Catch ex1 As Exception
          MsgBox(ex1.Message)
          If MsgBox("Is Microsoft Access Database Engine 2010 Redistributable installed?", vbQuestion Or MsgBoxStyle.YesNo) = MsgBoxResult.No Then
            Try
              Process.Start("<a href="https://www.microsoft.com/en-us/download/details.aspx?id=13255">https://www.microsoft.com/en-us/download/details.aspx?id=13255</a>")<br />
              MsgBox("Do it :)", MsgBoxStyle.SystemModal)
            Catch ex2 As Exception

            End Try
          End If
        Finally
          cat = Nothing
        End Try
      End If
    End With
  End Sub

  Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnOpen.Click
    Dim dlg As New OpenFileDialog

    With dlg

      .Filter = "Access(.accdb)|.accdb"
      If .ShowDialog = DialogResult.OK Then

        Dim OLEConnection As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & .FileName & ";Persist Security Info=True")
        OLEConnection.Open()

        Dim OLECommand As New OleDb.OleDbCommand("", OLEConnection)
        ' Before this line you can create a string that holds your build for the table structure
        Randomize()
        Dim t As Int64 = Int(Rnd() * 100000)
        Try
          OLECommand.CommandText = "CREATE TABLE mytable" & t & " (field1 CHAR,field2 NUMBER)"
          OLECommand.ExecuteNonQuery()
          MsgBox("Table " & t & " maded")

          OLECommand.CommandText = "insert into mytable" & t & " values(""" & t & """, " & t & ")"
          OLECommand.ExecuteNonQuery()

          OLECommand.Connection.Close()
        Catch ex As Exception
          MsgBox(ex.Message)
        End Try

      End If
    End With
  End Sub