Public Sub GetDetails(ByVal intID As Integer,ByRef strEmail As String,_
ByRef strPassword As String,ByRef strFName As String,_
ByRef strLName As String,ByRef strAddress As String,_
ByRef strCompany As String)
'create a Customer object and retrieve the details
Dim cust As New Customer(intId)
With cust
strEmail =,Email
strPassword =,Password
strFName =,FirstName
strLName =,LastName
strAddress =,Address
strCompany =,Company
End With
cust = Nothing
End Sub
Public Function AddCustomer(ByVal strEmail As String,ByVal strPassword As String,_
ByVal strFName As String,ByVal strLName As String,ByVal strAddress As String,_
ByVal strCompany As String) As Integer
'create a new Customer object and call the AddCustomer details
Dim newCustomer As New Customer(),iResult As Integer
iResult = newcustomer.AddCustomer(strEmail,strPassword,strFName,strLName,strAddress,strCompany)
newCustomer = Nothing
Return iResult
End Function
Public Sub LogOn(ByVal strEmail As String,ByVal strPassword As String,_
ByRef intID As Integer,ByRef strFName As String,_
ByRef strLName As String,ByRef strAddress As String,ByRef strCompany As String)
'create a Customer object and call LogOn method to retrieve the details
Dim cust As New Customer()
With cust
,Logon(strEmail,strPassword)
intID =,CustomerID
strFName =,FirstName
strLName =,LastName
strAddress =,Address
strCompany =,Company
End With
cust = Nothing
End Sub