Function SQLiteReKey(ByVal db as SQLite3 Ptr, ByVal newkey as String) as Integer '设置密码，如果为空，取消密码
   Dim aa as Integer
   aa = sqlite3_rekey(DB, ByVal StrPtr(newkey), Len(newkey))
   Function = aa
End Function