VB Bekræft overførsel fra Excel til Access DB

Hej, nedenstående kode opdaterer en Access db, men brugeren kan ikke se at data rent faktisk er overført, hvordan tilføjer jeg en funktion der fortæller brugeren i et popop at databasen er opdateret ?

* * * K O D E  S T A R T * * *
Private Sub knapOpdaterDatabase_Click()
'Denne procedure opdaterer en database med celleindhold i regnearket
Dim forbindelse As ADODB.Connection, rs As ADODB.Recordset, r As Long
' Opret forbindelse til databasen
Set forbindelse = New ADODB.Connection
forbindelse.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source=c:\bibliotek\database.mdb;"
' open a recordset
Set rs = New ADODB.Recordset
rs.Open "tabelnavn", forbindelse, adOpenKeyset, adLockOptimistic, adCmdTable

' Der oprettes nyt post med data fra regnearket

With rs
.AddNew ' tilføj ny post
' overfør celleværdier fra regneark til felter i databasen
.Fields("dato") = Range("b4").Value
.Fields("navn") = Range("e4").Value
.Fields("ugenr") = Range("b5").Value
.Fields("opgave1") = Range("b7").Value
.Fields("opgave2") = Range("b10").Value


.Update ' stores the new record
End With




rs.Close
Set rs = Nothing
forbindelse.Close
Set forbindelse = Nothing
End Sub

* * * K O D E  S L U T * * *

På forhånd tak.