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

Public Function StockQuote(strTicker As String, Optional dtDate As Variant)
 ' Date is optional - if omitted, use today. If value is not a date, throw error.
 
 If IsMissing(dtDate) Then
      dtDate = Date
 Else
     If Not (IsDate(dtDate)) Then
         StockQuote = CVErr(xlErrNum)
     End If
 End If

 Dim dtPrevDate As Date
 Dim strURL As String
 Dim strCSV As String
 Dim strRows() As String
 Dim strColumns() As String
 Dim dbClose As Double

 dtPrevDate = dtDate - 7 'need a previous date cos of API Service

' Compile the request URL with start date and end date
 strURL = "http://ichart.finance.yahoo.com/table.csv?s=" & strTicker & _
 "&a=" & Month(dtPrevDate) - 1 & _
 "&b=" & Day(dtPrevDate) & _
 "&c=" & Year(dtPrevDate) & _
 "&d=" & Month(dtDate) - 1 & _
 "&e=" & Day(dtDate) & _
 "&f=" & Year(dtDate) & _
 "&g=d&ignore=.csv"

Set http = CreateObject("MSXML2.ServerXMLHTTP.6.0")
 http.Open "GET", strURL, False
 http.Send
 strCSV = http.responseText
 
' The most recent information is in row 2, just below the table headings.
' The price close is the 5th entry

 If http.readystate = 4 Then
    If http.Status = 200 Then
       strRows() = Split(strCSV, Chr(10)) ' split the CSV into rows
       strColumns = Split(strRows(1), ",") ' split the relevant row into columns. 1 means 2nd row, starting at index 0
       dbClose = strColumns(4) ' 4 means: 5th position, starting at index 0
    Else
       dbClose = 0
       GlobalErrorCount = GlobalErrorCount + 1
    End If
 Else
    dbClose = 0
    GlobalErrorCount = GlobalErrorCount + 1
 End If
 

StockQuote = dbClose

Set http = Nothing

End Function