Ordentlig lukning af database?

Hej...

Jeg er i tvivl om min database er blevet lukket ordentlig efter jeg har smidt noget nyt ned i den

--> Start <--

<%
If Request.Form("Add") <> "" Then
    strError = ""
    strnavn = Trim(Request.Form("navn"))
    strtag = Trim(Request.Form("tag"))
    arr = split(strtag," ")
    for i = lbound(arr) to ubound(arr)
    If Len(arr(i)) > 25 then
        strError = "Et ord må kun indeholde 25 tegn!"
    End If
    next
    If Len(strNavn) = 0 Then
        strError = 1
    ElseIf Len(strtag) = 0 Then
        strError = 2
    End If
        If Len(strError) = 0 Then

        Set rs = Server.CreateObject("ADODB.Recordset")
        strSQL = "SELECT * FROM tags WHERE (ID = 0)"
        strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../../db/datalunden.mdb")
        rs.Open strSQL, strDSN, 1, 3
        If (rs.BOF Or rs.EOF) Then
            rs.AddNew
            rs("Navn") = strNavn
            rs("tag") = Replace(strtag, vbCrLf, "<br />")
            rs("remote_host") = request.servervariables("remote_host")
            rs.Update
        End If
        rs.Close
        Set rs = Nothing
        Response.Redirect("../?side=tag")
    Else
        Response.Redirect("../?side=tag_tilfoj&fejl=" & strError)
        strError = "<p><font face=verdana size=1 color=#FFFFFF><b>"& strError &"</b></font></p>"
        strMode = "add"
    End If
end if
%>
--> Slut <--

Håber i lige kan give et svart den den ;)