Firebird database backup, restore

This is the code:

Imports FirebirdSql.Data.FirebirdClient
Imports FirebirdSql.Data.Services
Backup of a database: code

Dim n As FirebirdSql.Data.Services.FbBackup = New FirebirdSql.Data.Services.FbBackup()
Dim fl As FirebirdSql.Data.Services.FbBackupFile = New FirebirdSql.Data.Services.FbBackupFile(My.Application.Info.DirectoryPath & "\mydb.gdk", FileLen(My.Application.Info.DirectoryPath & "\mydb.gdb"))
n.BackupFiles.Add(fl)
n.ConnectionString = "servertype=0;username=sysdba;password=masterkey;database=" & My.Application.Info.DirectoryPath & "\mydb.gdb"
n.Execute()
Restore a database: code

  Dim cs As FbConnectionStringBuilder = New FbConnectionStringBuilder
        Dim restoreSvc As FbRestore = New FbRestore
        cs.ConnectionString = "servertype=1;username=sysdba;password=masterkey;database=" & My.Application.Info.DirectoryPath & "\Giorgio.gdb"
      
        restoreSvc.ConnectionString() = cs.ToString
        restoreSvc.BackupFiles.Add(New  _
        FbBackupFile(My.Application.Info.DirectoryPath & "\Giorgio.gdk", 2048))
        restoreSvc.Verbose = True
        restoreSvc.PageSize = 4096
        restoreSvc.PageBuffers = 2048
        restoreSvc.Options = FbRestoreFlags.Replace
        FbConnection.ClearAllPools()
        restoreSvc.Execute()