可以定义一个对象,在Form_Load时定义路径,然后打开。
列子:
Dim Contract As DAO.Database
Dim sql as string
Private Sub Form_Load()
Set Contract = OpenDatabase("D:\crystal.mdb")
sql="select #### from TableName"
contract.execute(sql)
End Sub

解决方案 »

  1.   

    连不上,unrecoginzed database format("d:\user.mdb")
      

  2.   

    忘了,要在VB的工程的引用(英文版的Refrence)选定Microsoft的DAOjet(具体哪一个我忘了,嗨,老了老了)
      

  3.   

    是DAO 3.51 Object Liberay
      

  4.   

    最好的方法是在VB中放一个DATA控件,然后用它来生成一个联接字符串。
      

  5.   

    哦,不好意思,是ADODC控件
    Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Printerjob.mdb;Persist Security Info=False
      

  6.   

    大哥们:
    不要误人子弟了用DAO最简单
    如下:
    dim db as database
    dim rst as recordset
    set db=dbengine.workspaces(0).Opendatabase("....mdb")
    set rst=db.Openrecordset("Select *  from ....")
    此时连接成功你就可以读内容了
      

  7.   

    如果用的是Access2000,我建议还是用ADO,虽然资源开销大一些,但用着方便,而且日后升级方便。