Unclosed Quotation Mark Before The Character String ''.

 I try to get values from database table name GoldPriceRecord , and display them in a simple labels text. However, i receive the following error:

Error: 

Unclosed quotation mark before the character string ''.

 

Public LondonDateTime As Date

Public CommodityPrice As String

Public SysDate As DatePublic CommodityPrice_Check As String

Protected Sub Page_Load(ByVal sender As Object, _                 ByVal e As System.EventArgs)

Dim strsql1 As String

Dim strsql2 As String

strsql1 = "SELECT TOP 1 Bid, SystemDate FROM GOLDBEST.DBO.GoldPriceRecord ORDER BY SystemDate DESC'"

SetGoldPriceRecord(strsql1)

fdsa1.Text = LondonDateTime

fdsa2.Text = CommodityPrice

fdsa3.Text = SysDate

fdsa4.Text = CommodityPrice_Check

End Sub

 Public Function SetGoldPriceRecord(ByVal strsql As String)

Dim connString As String = _ConfigurationManager.ConnectionStrings("Local_LAConnectionString1").ConnectionString

Using myConnection As New SqlConnection(connString)Dim myCommand As New SqlDataAdapter(strsql, myConnection)

Dim DS As New DataSetmyCommand.Fill(DS, "GoldPriceRecord")                                      <----  Error

CommodityPrice = CType(DS.Tables(0).Rows(0)("Bid"), String)CommodityPrice_Check = CType(DS.Tables(0).Rows(0)("Bid"), String)

SysDate = CType(DS.Tables(0).Rows(0)("SystemDate"), Date)LondonDateTime = CType(DS.Tables(0).Rows(0)("SystemDate"), Date)

myConnection.Close()

End UsingReturn LondonDateTime

Return CommodityPriceReturn SysDate

Return CommodityPrice_Check

End Function

 

<form id="form1" runat="server">

<p><asp:Label ID="fdsa1" runat="server" /></p>

<p><asp:Label ID="fdsa2" runat="server" /></p>

<p><asp:Label ID="fdsa3" runat="server" /></p>

<p><asp:Label ID="fdsa4" runat="server" /></p>

 

 

</form>