آیا میتوان این تابع را به دلفی یا سی تغییر داد ؟

[sasan_vm]

سلام دوستان
من با vb هیچ اشنایی ندارم و نیاز فوری به تبدیل تابع زیر دارم اگه ممکنه راهنمائیم
کنید
با تشکر فراوان

===============================================

Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
Dim dbs As Database, prp As Property
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

[mohsengrisly]

به نظر من کمی هم vb برای همه لازم است
به سی می شود البته با کمی دستکاری