Attribute VB_Name = "mdl_public"
Public dbcnn As New ADODB.Connection
Public usernow As usertype
Type usertype
id As String
type As Integer
End Type
Public Sub addrec(ByVal rectype As Integer)
Dim adduserrec As New Recordset
Dim dbstringa As String
dbstring = "select * from userrecord"
adduserrec.Open dbstring, dbcnn, adOpenForwardOnly, adLockOptimistic
adduserrec.AddNew
adduserrec.Fields("userid") = usernow.id
adduserrec.Fields("usertime") = Now
adduserrec.Fields("useroperate") = rectype
adduserrec.Update
adduserrec.Close
End Sub

Public Sub main()
If App.PrevInstance Then
MsgBox "系統已啟動!", , "提示！"
End
End If
dbcnn.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\停車數據庫3.mdb"
dbcnn.Open
On Error GoTo errprocess
frmlogin.Show
Exit Sub
errprocess:
MsgBox Err.Description

End Sub