有没有人会！？

Question

With Me
        .Left = (Screen.Width - .Width) / 2
        .Top = (Screen.Height - .Height) / 2
End With
应该放在form.resize()过程中

Answer 1

Dim Cnn As new adodb.Connection

Answer 2

看到错误了，如果不引用DAO而改为引用ADO的话就没问题了

Answer 3

这是ADO的用法，DAO应该是用这个吧：
   Dim daoDBE As DAO.DBEngine
   Dim daoWs As DAO.Workspace
   Dim daoDb As DAO.Database
   Dim daoTable2 As DAO.TableDef   Set daoDBE = New DAO.DBEngine
   Set daoWs = daoDBE.Workspaces(0)
   Set daoDb = daoWs.CreateDatabase("db1.mdb", _
   dbLangGeneral)
   Set daoTable2 = daoDb.CreateTableDef("Table2")
  ...........................

Answer 4

在工程的reference中引用microsoft activex object 即可！！！

Answer 5

代码我试过了，没问题。是不是没有引用MS ADO 2.x Library，要不就是你的VB出问题了。

Answer 6

引用ms ado library 了吗？

Answer 7

Dao:
Dim as workspace
Dim db as database
Dim re as recordset
set aa =createworkspace("","admin","",dbusejet......)
set db aa.opendatabase("c:\aa.mdb",false,false,"pwd=adlad,")
set re=db.openrecordset("字")ado:
Dim Cnn As adodb.Connection
Set Cnn =new adodb.connection