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
        Dim daydate As String
        daydate = Date.Now.Date

        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 = '" & daydate & "'"

        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")