Attribute VB_Name = "Module1"
Public con As ADODB.Connection
Public cmd As ADODB.Command
Public rs As ADODB.Recordset
Public iResponse As Integer
Public SQL As String
Public vntBookMark As Variant
Public msg As String
Public errValue As Single
Public checkPass As Boolean
Public bGroomGown As Boolean
Public bFound As Boolean
Public i As Integer
Public serviceTotal As Double
Type serviceAttribute
    ServiceNumber As String
    ServiceDesc As String
    ServicePrice As Currency
End Type
Public Service(0 To 2) As serviceAttribute
Type custDetail
    custNumber As String
    custFName As String
    custLName As String
    custAddress As String
    custContactNo As String
    custEmail As String
End Type
Public Customer As custDetail
Type rentalDetail
    rentalNumber As String
    catalogNo As String
    customerNo As String
    rentDate As String
    returnDate As String
    staffNo As String
End Type
Public RentalAgreement As rentalDetail
Type accDetail
    Revenue As String
    catalogNo As String
    customerNo As String
    accDate As String
    staffNo As String
    rental As Double
    deposit As Double
    otherService As Double
End Type
Public Account As accDetail