VB 6.0中的数据连接模块

  1'== 标记数据库是否连接 ==
  2Private IsConnect As Boolean
  3'== 标记执行Connect()函数后，访问数据库的次数 ==
  4Private Connect_Num As Integer
  5Private cnn As ADODB.Connection   '连接数据库的Connection对象
  6Private rs As ADODB.Recordset     '保存结果集的Recordset对象
  7
  8'连接数据库
  9