module1.bas

客户信息管理系统10客户信息管理系统10

Attribute VB_Name = "Module1"
Option Explicit
Public Conn As ADODB.Connection
Public ConString As String
Dim ProviderStr As String
Dim SourceStr As String
Dim SourceName As String
Public diyAndOr1 As String
Public diyAndOr2 As String
Public diyAndOr3 As String
Public diyAndOr4 As String
Public i As Single
Public now_add As Boolean
Public now_edit As Boolean
Public now_find As Boolean
Public now_close As Boolean
Public old As Variant
Public old1 As Variant
Public old2 As Variant





Sub Main()
    Set Conn = New ADODB.Connection '新建一个连接
    Conn.CursorLocation = adUseClient
    ProviderStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=\客户数据库.mdb;Jet OLEDB:Database Password=lhb9900;"
    SourceStr = App.Path
    SourceName = "\客户数据库.mdb;"
    SourceStr = "Data Source=" & SourceStr & SourceName
    ConString = ProviderStr & SourceStr '设定连接字符串
    DataEnvironment.Connection.ConnectionString = ConString
    Conn.Open ConString
    客户管理.Show

End Sub