Dim congold As New OleDb.OleDbConnection
        Dim dbProvider As String
        Dim dbSource As String
        Dim ds As New DataSet
        Dim da As OleDbDataAdapter
        Dim sql As String

        dbProvider = "PROVIDER=Microsoft.Jet.OLEDB.4.0;"
        dbSource = "Data Source = " + My.Settings.database

        congold.ConnectionString = dbProvider & dbSource

        congold.Open()
        sql = "SELECT * FROM gold Where date =" + Date.Now.Date

        da = New OleDb.OleDbDataAdapter(sql, congold)
        da.Fill(ds, "goldprice")
        congold.Close()

        txt9melt.Text = ds.Tables("goldprice").Rows(0).Item("9ct")
        txt14melt.Text = ds.Tables("goldprice").Rows(0).Item("14ct")
        txt18melt.Text = ds.Tables("goldprice").Rows(0).Item("18ct")
        txt22melt.Text = ds.Tables("goldprice").Rows(0).Item("22ct")
        txtsilvermelt.Text = ds.Tables("goldprice").Rows(0).Item("silver")
        txtplatinummelt.Text = ds.Tables("goldprice").Rows(0).Item("platinum")