我是用DAO方式连接数据库的:
  set Db=OpenDataBase("\\hishsun\考勤数据\考勤数据库.mdb",false,false)
HighSun是局域网中服务器的名称。而且连接语句只是在Form_Load事件中执行一次,不用每次打卡都执行的。

解决方案 »

  1.   

    不是这句,应该是另外的
    就是db,open xxxxx那句
    后面又一个可以变换的
    Dim db As Connection
      Set db = New Connection
      db.CursorLocation = adUseClient ' adUseServer注意这里一个是本地的,一个是服务器用的
      db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\Nwind.mdb;"  Set adoPrimaryRS = New Recordset
      adoPrimaryRS.Open "select Address,BirthDate from Employees", db, adOpenStatic, adLockOptimistic
      

  2.   

    你用的是DAO
    上面的用的是ADO对数据库的操作都在服务器(或者后台机器)上进行
    前台只是发送消息,取得消息(Winsock通信),这样应该就快了