Attribute VB_Name = "Module1"
Option Explicit

Public pclsUser As Object
Public pclsMasterSearch As Object

Public Con As New ADODB.Connection
 


Sub Main()

    Set pclsUser = CreateObject("Medsys_User.clsCurrentUser", "")
 
    
'


   ' Con.ConnectionString = "provider=SQLOLEDB;server=192.168.8.9;uid=sa;password=lorma2k;database=password"
   ' Con.Open
    'Set pclsUser.sqlconnection = Con
     
    pclsUser.PasswordDeptCode = "18"
    pclsUser.ShowMain
    If pclsUser.Connected Then
    Else
        Exit Sub
    End If
    Set Con = pclsUser.sqlconnection



'    Set pclsMasterSearch = CreateObject("Demograph_MasterSearch.clsPatientSearch")
'
'    If pclsMasterSearch.InitConnection(Con, "") Then
'        'Set pclsMain = pclsMasterSearch.PatientClass
'    End If
    frmMain2.ctlHeader1.clsUserSet = pclsUser
    frmMain2.Show

 End Sub

Public Function ComputeAge(ByVal strBirth As String, ByVal strNow As String) As Integer
   Dim intDays As Long
   ComputeAge = 0
   If IsDate(strBirth) And IsDate(strBirth) Then
      If strBirth <> "  /  /    " Then
         intDays = DateDiff("d", strBirth, strNow) + 1
         ComputeAge = Int(intDays / 365.25)
      Else
         ComputeAge = 0
      End If
   End If
End Function