Public Function UpdateCustomer(ByVal intCustomerNumber As String, ByVal _
          strName As String, ByVal strFirstName As String, ByVal dtFirstcontact _
          As Date)
            Dim oCommand As SqlClient.SqlCommand
 
            oCommand = New SqlCommand
            oCommand.Connection = Connection
            oCommand.Parameters.Add("@intCustomerNumber", intCustomerNumber)
            oCommand.Parameters.Add("@strName", strName)
            oCommand.Parameters.Add("@strFirstName", strFirstName)
            oCommand.Parameters.Add("@dtFirstContact", dtFirstContact)
            oCommand.CommandText = "spCustomer_UpdateCustomer"
            oCommand.CommandType = CommandType.StoredProcedure
            Return CType(oCommand.ExecuteScalar(), Long)
 
        End Function