module1.bas

此文件为在ＶＢ环境下可用．且有数据库文件

Attribute VB_Name = "Module1"
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Public Const connstr = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=nccc.mdb"
Public glymc As String
Public quanxian As String
Sub Main()
login_f.Show
End Sub