pb如何连接access

Ulong ul_num
Int answer,answer1,answer2,answer3,answer4,answer5,answer6,answer7
String ls_driver,db_path,dqml
dqml=GetCurrentDirectory ( )
//取得数据库驱动程序的路径
answer=RegistryGet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBCINST.INI\Microsoft Access Driver (*.mdb)","driver",RegString!,ls_driver)
IF answer=-1 THEN
Messagebox("错误","应用程序无法获取Windows的系统目录，系统统将终止运行！",Stopsign!)
RETURN
END IF
//添加gw数据源
answer=RegistrySet('HKEY_current_user\Software\ODBC\ODBC.INI\ODBC Data Sources','dlcl',RegString!,'Microsoft Access Driver (*.mdb)')
IF answer=-1 THEN
Messagebox('错误','应用程序无法设置ODBC DATA SOURCE名称，系统将终止运行',StopSign!)
RETURN
END IF
db_path=dqml+'\dianlicl.mdb'
//设置ODBC.INI的细节
answer1=RegistrySet("HKEY_current_user\Software\ODBC\odbc.ini\dianlicl","driver",RegStr