module1.bas

来自「是基于C#语言的一个图书综合管理系统的开发案例,相当实用」· BAS 代码 · 共 17 行

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