module1.bas

是基于C#语言的一个图书综合管理系统的开发案例,相当实用

Attribute VB_Name = "Module1"
Public adoCon As New ADODB.Connection
Public adoRs As New ADODB.Recordset
Public Sub main()
    Dim temp As String
    temp = "DSN=NBooks"
    adoCon.Open (temp)
End Sub
Public Function Cnn() As ADODB.Connection    '声明函数
    '创建连接
    Set Cnn = New ADODB.Connection
    '打开连接
     Cnn.Open "DSN=NBooks"
End Function