哪位能帮忙详细解释一下以下代码的含义？

Option Compare Database

Function ChangeProperty(strPropName As String, varPropType As Variant, varPropvalue As Variant) As Integer

Dim dbs As Object, prp As Variant
Const conPropNotFoundError = 3270
Set dbs = CurrentDb
On Error GoTo Change_Err
dbs.Properties(strPropName) = varPropvalue
ChangeProperty = True
Change_Bye:
Exit Function
Change_Err:
If err = conPropNotFoundError Then ' Property not found.
Set prp = dbs.CreateProperty(strPropName, varPropType, varPropvalue)
dbs.Properties.Append prp
Resume Next
Else ' Unknown error.
ChangeProperty = False
Resume Change_Bye
End If
End Function

哪位能帮忙详细解释一下以下代码的含义？ 帮忙解释一下以下ASP代码 这段代码谁能详细解释一下 大哥大姐帮忙解释一下这段代码 最好能详细点 谢谢!!! 有关网页播放器的一些代码 谁能帮忙详细的解释一下啊？ 哪位大虾能帮忙解释一下以下这个关于铃声的问题？ 帮忙解释一下以下代码，谢谢各位（delphi7） 这两段代码详细解释一下 哪位大哥帮忙解释一下下面这句javascript代码 “至羡”是什么意思？哪位朋友能帮忙解释一下。