module12.bas

该课题采用VB+SQLSERVER实现一个管理系统

Attribute VB_Name = "Module1"
Option Explicit
Public Str As ADODB.Connection
Public username As String
Public password As String

Public Sub DateConnection()
    Set Str = New Connection
    Str.ConnectionTimeout = 50
    Str.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\mdecine.mdb;"
    Str.CursorLocation = adUseClient
End Sub

Public Sub Main()
    Call DateConnection
    
    Form1.Show
End Sub