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