>.CommandText = "RAND(-1)" >.ExecuteNonQuery() >.CommandText = "SELECT TOP 10 RAND()....." >.Fill(...)Just so you could try it by yourself, here is the code sample I tried with.
Dim oCommand As IDbCommand = Nothing Dim oConnection As IDbConnection = Nothing Dim oDataAdapter As IDbDataAdapter = Nothing Dim oDataSet As DataSet Dim oDataView As DataView oConnection = New OleDbConnection(oApp.aConnection(1)) oDataAdapter = New OleDbDataAdapter oCommand = New OleDbCommand oCommand.Connection = oConnection oCommand.CommandText = "RAND(-1)" oCommand.Connection.Open() oCommand.ExecuteNonQuery() oCommand.Connection.Close() oCommand.CommandText = "SELECT TOP 10 RAND() AS Test,Video.Date,..." oDataAdapter.SelectCommand = oCommand oDataSet = New DataSet oDataAdapter.MissingSchemaAction = MissingSchemaAction.AddWithKey oDataAdapter.Fill(oDataSet) oDataSet.Tables("Table").TableName = "Temp" oDataView = New DataView oDataView = oDataSet.Tables("Temp").DefaultView loRow = oDataView(0).RowThis gets 10 records from the SQL. If I print the Test value from loRow, such as loRow("Test"), I will always get the same values for the records such as 0.91, 0.88, 0.79, for the first three records, everytime this code is executed.