Module SharedRessources
    Public dbConnexionString As String
    Public dbdata As SQLManager = New SQLManager()

    ''' <summary>
    ''' 
    ''' </summary>
    ''' <param name="id"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function getFirstFreeMeetOf(id As Integer) As Integer
        Dim abs As BabySitter = dbdata.getBabysitterByID(id)
        If abs.meet1 Is Nothing Then
            Return 1
        ElseIf abs.meet2 Is Nothing Then
            Return 2
        ElseIf abs.meet3 Is Nothing Then
            Return 3
        Else
            Return 4
        End If
    End Function




End Module