在访问数据库中使用查询获取数据，数据集显示旧数据

Question

我正在使用下面的代码使用传递给它的参数的查询从访问数据库返回一些数据：

    Dim con As OleDbConnection = New OleDbConnection(GlobalVariables.connectionString)
    Dim cmd As New OleDbCommand
    cmd.CommandType = CommandType.StoredProcedure
    cmd.CommandText = "Q_VIEW_SINGLE_TEST"
    cmd.Parameters.Add("@TEST_ID", OleDbType.VarChar).Value = "17"  ' Add Parameter
    cmd.Connection = con
    con.Open()
    Dim da As OleDbDataAdapter = New OleDbDataAdapter(cmd)
    Dim ds As DataSet = New DataSet()
    da.Fill(ds, "Table1")
    dt = ds.Tables("Table1")

    MsgBox(ds.Tables(0).Rows(0)(3))

它只是不断返回旧数据（所以当值等于1时返回的数据：

   cmd.Parameters.Add("@TEST_ID", OleDbType.VarChar).Value = "1"

我在这里缺少什么？