第一:
  Cnct = "dsn=zcs;uid=sa;pwd=admin;database=zcs"  QueryCn.Connect = Cnct$
  QueryCn.CursorDriver = rdUseOdbc
  QueryCn.EstablishConnection rdDriverNoPrompt, False
  QueryCn.QueryTimeout = 60
   
   第二:
   Sql = "select max(zcs_no) as no from zcs_head"
   Set rst = QueryCn.OpenResultset(Sql)
   If Not IsNull(rst!No) Then
    Text(4).Text = Format(rst!No + 1, "000000000")
    Else
    Text(4).Text = "000000001"
   End If  第一是原有的Rdo连接,通过ODBC连接在Sql Server上的,现在想把它连在Access数据库上,不再用ODBC,直接连.  请教大家用什么方法最好,连Access数据库后,原有的查询任然有效,也就是'第二'能够继续运行!