Attribute VB_Name = "mdlTemp"
Option Explicit

Public User As New clsCurrentUser
Public ListDrugs As New clsListDrugs

Public Sub Main()

   User.PasswordDeptCode = "00"
   User.ShowMain
   
   If User.Connected Then
   
      If ListDrugs.InitConnection(User.SQLConnection.ConnectionString) Then
         MsgBox ListDrugs.ShowList("A", False, "21")
      End If
   
   End If

   Set User = Nothing

End Sub