Table not updating

[Stretchy]

I'm using the following code to update a table through a recordset. Can anyone see anything wrong with it because its not working
__________________________________

Private Sub Add_Click()

Dim rst As ADODB.Recordset
Dim cnn As ADODB.Connection

Set rst = New ADODB.Recordset
Set cnn = CurrentProject.Connection

rst.Open "Select * from tbl_target", cnn, adOpenDynamic, adLockOptimistic
rst.AddNew
rst.Fields("Date&quot = Me.TarDate
rst.Fields("Department&quot = Me.dept
rst.Fields("Division&quot = Me.Division
rst.Fields("Section&quot = Me.Section
rst.Fields("Target&quot = Me.AdTarget
rst.Update
rst.Close

Me.Refresh

End Sub
__________________________

thx for any help _______________
Stretchy

 

[Dreamwalker]

try

Me.Recalc
Me.requery at the end

Vince

 

[Stretchy]

THx but this hasnt worked. Is there anotyher method other than recordsets that i can use to update the table? _______________
Stretchy

 

[Dreamwalker]

Yes there is a way

You can also update it with SQL code

Docmd.RunSQL("UPDATE from

set COLUMNS = VALUE, COLUMNS = VALUE WHERE [CONDITION];&quot

Try this one to update table

Ciao
Vince