我做了两步，第一步打开数据库的代码：
Error Var:=""
ODBCHandle:=ODBCOpen(WindowHandle,Error Var,"菜单","","")
DBConnString:="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=菜单.mdb;UID=;PWD=;"
ODBCHandlePic:=ODBCOpenDynamic(WindowHandle,Error Var,DBConnString)
然后是读取章节：
Error Var:=""
ODBCHandle:=ODBCOpen(WindowHandle,Error Var,"菜单","","")
Chaptertitle:=Array("",10)
DB_SQLStringCT1:="select ChapterTitle from chapter where ID=1"
Chaptertitle[1]:=ODBCExecute(ODBCHandle,DB_SQLStringCT1)
最后是显示章节
--Error Var:=""
--ODBCHandle:=ODBCOpen(WindowHandle,Error Var,"菜单","","")
DB_SQLStringCN1:="select ChapterName from chapter where ID=1"
ChapterName1:=ODBCExecute(ODBCHandle,DB_SQLStringCN1)
但是给我的结果都是没有反应，似乎是数据库没有导入，求问！！