Gimana Skrip Cara Backup dan Restore Database dalm Program Foxpro 9.0????

Assalamu' alaikum Wr, Wb.

Kepada Teman2 dan sesepuh MUGI ...

Saya mau tanya,gimana skrip untuk backup database dan restorenya.Jika dijalankan lewat form foxpro..

Saya sudah buat skrip dibawah ini di tombol Backupnya :

cDirec='D:\Backup\Koperasi'
If !Dire(cDirec)
    Md &cDirec
Endif
cek=SQLExec(ckonek,"Backup Database dbkoperasi To Disk=?cDirec","backup")
If cek>0
    Wait Window cFile Nowait
    Select backup
    If Reccount()>0
        Messagebox("BACKUP DATABASE BERHASIL",64,"SUKSES")
    Else
        Messagebox("BACKUP DATABASE GAGAL",64,"GAGAL")
    Endif
Else
    Messagebox("KONEKSI GAGAL",64,"ERORRR")
Endif

Tapi kok koneksinya Gagal....

Mohon Bantuannya....