Hvordan oppdatere formen

Hei

Jeg har skrevet følgende:


Private Sub button_lagre_Click()
    Dim rsLagre As Recordset
    Set rsLagre = DataEnvironment1.cnnToFoKK.Execute("UPDATE Firm SET firm_navn='" & txtFirm_navn.Text& "'" & _
", adresse='" & txtAdresse.Text & "'" & _
", postnr=" & txtPostnr.Text & _
", telefon_nr=" & txtTelefon_nr.Text & _
", mobil_nr=" & txtMobil_nr.Text & _
", fax_nr=" & txtfax_nr.Text & _
", organisasjons_nr=" & txtOrganisasjons_nr.Text & _
", Bankgironr='" & txtBankgironr.Text & "'" & _
" WHERE eier_ID=" & txtEier_ID.Text)
     
End Sub


Dette fungerer bra, men jeg må avslutte programmet og startedet på nytt for at dataene i formen skal bli oppdatert.

Hvordan oppdaterer jeg skjermbildet ?
Jeg har prøvd :
rsLagre.Resync
rsLAgre.Update

Men da får jeg en feilmelding om at recordet er lukket.
Hvis jeg åpner recordet, får jeg beskjed om at det er åpent.

He he jeg har et problem :-)

Kan noen hjelpe meg