error with dataset update

[BVA3105]

i update a database with a dataset and a SqlAdapter with success but when i
clear and refill my dataset i always retreive the old values.
I have to wait for 5 seconds to get the corrects values.

' Step one ==update directly the dataset in memory
Dataset.table.i tem(0)._Date = DateValue
Dataset.table.i tem(0).Time = TimeValue
Dataset.table.i tem(0).Tarif = TarifValue

' Step two ==create and exexute a command to update database
Dim command As New SqlClient.SqlCo mmand

command.Command Type = CommandType.Sto redProcedure
command.Command Text = "Proc_console_U pdate_Date_And_ Tarif"

Dim ParameterSysNum As SqlParameter = command.Paramet ers.Add
("@SysNum", SqlDbType.Int)
ParameterSysNum .Value = Sys_Num_MSP_Sys tem

Dim ParameterJobId As SqlParameter =
command.Paramet ers.Add("@Jobid ", SqlDbType.VarCh ar, 20)
ParameterJobId. Value = Dataset.table.i tem(0).Job_Id

Dim ParameterJobDef Id As SqlParameter =
command.Paramet ers.Add("@JobDe fid", SqlDbType.VarCh ar, 20)
ParameterJobDef Id.Value = Dataset.table.i tem(0).Job_Def_ Id

Dim ParameterDate As SqlParameter =
command.Paramet ers.Add("@Date" , SqlDbType.VarCh ar, 20)
ParameterDate.V alue = TextBoxStamping Date.Text

Dim ParameterTime As SqlParameter =
command.Paramet ers.Add("@Time" , SqlDbType.VarCh ar, 20)
ParameterTime.V alue = TextBoxStamping Time.Text

Dim ParameterTarif As SqlParameter =
command.Paramet ers.Add("@Tarif ", SqlDbType.VarCh ar, 20)
ParameterTarif. Value = TextBoxStamping Tarif.Text

command.Command Timeout = 10000
command.Connect ion = conn

conn.Open()
command.Execute NonQuery()
' Step three ==create and exexute adapter to refill dataset
Dim command As New SqlClient.SqlCo mmand

Dim conn As New SqlClient.SqlCo nnection
conn.Connection String = frmPwd.GetStrco nnection()

command.Command Type = CommandType.Sto redProcedure
command.Command Text = "Proc_Console_G et_Info_Job"

Dim ParameterJobId As SqlParameter =
command.Paramet ers.Add("@Jobid ", SqlDbType.VarCh ar, 20)
ParameterJobId. Value = DBNull.Value

Dim ParameterSysNum As SqlParameter =
command.Paramet ers.Add("@SysNu m", SqlDbType.Int)
ParameterSysNum .Value = Sys_Num_MSP_Sys tem

command.Command Timeout = 10000
command.Connect ion = conn

MpAdaptater.Sel ectCommand = command
' Step four ==clear and refill dataset
Dataset.table.C lear()
MpAdaptater.Fil l(Dataset.table )
between 'step two' and 'step three' I have to wait 5 seconds to have get the
corrects values

I have three TextBoxes which are binded to fields [_Date], [Time], [Tarif]

Language VB.NET 2005 with framework 2.0
SqlServer 2000 with last patch

Best regards