Public Function UpdateCustomer(ByVal IDCustomer As Long, 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
            [u]oCommand.Parameters.Add("@IDCustomer", IDCustomer)
            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