cKon = SQLSTRINGCONNECT(”Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\mydata.mdb;Uid=Admin;Pwd=;”)

IF ckon <= 0
MESSAGEBOX(”Database Conection Failed”,0+16,”Error”)
CLEAR EVENTS
QUIT
ELSE
MESSAGEBOX(”Database Conection Succeed”,0+16,”Succeed”)

ENDIF