VB对Access数据库操作。解决办法

VB对Access数据库操作。
我已经在外面创建好一个accsee数据库，然后通过VB编程对数据库进行写数据，读数据。请问哪位高手能提供一个这样的案例。要用到哪些语句？最好有完整的一个步骤介绍。因为我是一个新手。谢谢！

[解决办法]

VB code

dim conn as new adodb.connectiondim rs as new adodb.recordset'连接数据库with conn    If .State<>adstateclosed Then .Close    .ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.path & "\数据库名.mdb;Mode=ReadWrite;Persist Security Info=False"    .OpenEnd With'查询记录if rs.state<>adstateclosed then rs.closers.open "select * from 表名",conn,adopenkeyset,adlockreadonlyset mshflexgrid1.datasource=rsrs.close'新增记录conn.execute "insert into 表名(...) values(...)"'修改记录conn.execute "update 表名 set ... where ..."'删除记录conn.execute "delete from 表名 where ..."
[解决办法]
我给你讲个例子  你自己去研究以下：
是访问ADO变成数据的
    Private sub form_load()
    dim rs as new recordset
    dim con as new connection
    con.open "DSN=mydatabase"
   
    rs.open "select * fro 数据库名称" , con
    me.autoredraw = true
    rs.movefirst  
    dim ptr 0 to 4
      print rs.fields(ptr) .name,
    next ptr
    while not rs.EOF ()
    print
    for ptr = 0 to 4
     print rs.fields (ptr) .Value
    next ptr
    rs.movenetx
    wend


    ned sub
             

       希望对你有帮助！