module1.bas

采购管理系统使用vb6.0 加sql2000数据库 编程

Attribute VB_Name = "Module1"
   'Public dltemp As msdasc.datalinks

    Public cntemp As ADODB.Connection
Public Sub ado()
  Set cntemp = New ADODB.Connection
  cntemp.ConnectionString = " Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Data_cggl;Data Source=服务器 "
  'Set cntemp = Nothing


End Sub