改为:drv = "PROVIDER=Microsoft.Jet.OLEDB.4.0; Data Source=c:\my documents\db2.mdb;"试试,如果未安装sp4 ,将4.0改为3.5

解决方案 »

  1.   

    也报错:ado找不到指定的提供者.
      

  2.   

    weiyf() :看看你的菜单 工程=> 引用  里有啥问题,换一个ADO版本的试试! 
      

  3.   

    建議你這樣做: 用vb中的Ado控件先聯一下,然後Test一下。我想一般都可以的。
    如果還不行,請興我聯系:19436077(OICQ)
      

  4.   

    请问 我查找的是所有的记录。为什么text1 里只显示第一条记录呢。
      

  5.   

    干脆我给你写好了吧Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim sql As String
    Dim drv As Stringdrv = "DBQ=c:\my documents\db2.mdb;DefaultDir=;driver={microsoft access driver(*.mdb)};uid=;"
    sql = "select * from personalinfo"
    cn.Open drv
    rs.Open sql, cn
    text=""
    do while not rs.eof Text1.Text =  text1 & rs.Fields("name") & vbcrlfrs.movenext
    loop
    rs.close 
      

  6.   

    还有:
    rs.Fields("name") 可以简单的写成  rs!name 
      

  7.   

    jinesc(归去来兮:我很笨,因此只用VB) :帅哥,报错了.DRV那句.