VB与Access连接实例——点菜系统

帮助初学者学习VB与Access连接 DimDatabase Dimconn Dimrs Database="data\db1_ok.mdb" Setconn=CreateObject("adodb.connection") conn.Open"driver={microsoftaccessdriver(*.mdb)};dbq="&Database Setrs=CreateObject("adodb.recordset") rs.Open"Select*fromdb1",conn,3,3 Withrs .addnew .fields(1)=