module1.bas

客户管理系统 对客户的信息进行管理

Attribute VB_Name = "Module1"
Public adoCon As New ADODB.Connection
Public adoRs As New ADODB.Recordset
Public Numer As Integer
Public Name1 As String
Public Sub main()
Dim temp As String
temp = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & App.Path & "\khgl.mdb;Persist Security Info=False"
adoCon.Open (temp)
End Sub
'Function cnn() As ADODB.Connection
'  Set cnn = New ADODB.Connection
' temp = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & App.Path & "\khgl.mdb;Persist Security Info=False"
' adoCon.Open (temp)
'End Function